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PSS FOCAL. 1974 MAKES THE DEVICE- INDEPENDENT FILE HANDLING FACILITIES 
OF PSS CIRECTLY AVAILABLE TO FOCAL USERS. IT IS A COLLECTION OF 

PATCHES TO FOCAL. 1969 --- MOST PROGRAMS WRITTEN IN FOCAL, 1969 WILL BE 
PROCESSED BY PSS FOCAL, 1974 (SEE LIST OF DIFFERENCES CN PAGE a}. | 


PSS FOCAL, 1971 SOURCE FIND BINARY FILES PLUS DEMONSTRATION PROGRAMS ARE 
AVAILABLE ON DECTAPE OR PAPER TAPE. ENCLOSE #5 OR AN EXTRA DECTAPE TO 
COVER HANDLING AND MAILING. CADD $16 aon DECTAPE VERSION IF YOU OO NOT 
INCLUDE YOUR OWN FS.’S FORMATTED CEC TAPE. SEND REQUESTS TO: 


SOFTWARE DEVELOPMENT GROUF, Gras I, ae OREGON 97224. 


SUGGESTIONS FOR NOVICES : 


THIS MANUAL IS INTENDED AS Al REVIEWING AIG FOR PERSONS WHO ALREADY HAVE 
SOME FAMILIARITY WITH FOCAL. A GOOD INTRODUCTION. Se FOCAL PROGRAMMING 
15 CHAPTER 14 OF “PROGRAMMING LANGUAGES” <197@, $2); ALSO USEFUL 15 

THE PSS USER'S GUIDE ¢NO. DEC-@3-MEFA-D>. #3). BOTH MAY BE PURCHASED 
FROM THE DEC PROGRAM LIBRARY, BLDG. 3-5, MAYNARD, MASS G1754. 


70 USE FSvé FOCAL, 1971 ON DECTAPE SYSTEMS DISK “USERS SEE PAGE 24>: 

1) BOOTSTRAP INTO PSs MONITOR: 7 ge 

2) AT MULTIPLE DECTAPE INSTALLATIONS , THE AUTHORS SUGGEST THAT. THE FSS 
COMMAND “ASSIGN DTAL. OSK:* BE GIVEN TC ‘PERMIT THE USER TO USE HIS 


CWN DECTAPE AS THE CEFAULT DEVICE <OSK:9; THIS IS REQUIRED BY THE © 
“HELPS PACKAGE as aad ON DECTAPE FOR PSB FOCAL, 1374; ; 


TYPE “RUN DSK: PFOCAL’ | 


And 


4° THE INITIAL DIALOGUE WILL ASK IF YOU WISH TO RETAIN STANDARD FEATURES 
OF PSS FOCAL, 19°14. A "ES WILL PROVIGCE 23568 CHARACTERS OF FROGRAM 
SPACE. 98 VARIABLES, 16 DIGIT FRECISION. FILES: BND TRIG PURE TIONS: 
SEE ~ INITIAL DIALOGUE” ON PAGE 22 FOR oer FMP TIONS: 


22 THE “LIBRAR'?’ EXIT’ COMMAND WILL RETURN ‘OU To THE PS“& MONITOR: 


Bo? A * HELP’ PACKAGE FOR PSS FOCAL.41971 15 AVAILABLE ON DECTAPE. MOLINT 
THE HELP TAPE ON DECTAPE DRIVE #1; MOUNT THE FS/’S SYSTEM TAPE ON 
DRIVE #4. ‘YOU MAS ENTER “HELP” WHILE WRITING A PS’S FOCAL PROGRAM 
BY TYPING THE COMMAND “L G HELP’. = {YOUR PROGRAM WILL BE SAVED UNDER 
THE NAME “FOCAL. TH". WHEN vO DESIRE NO MORE HELP. YOU WILL BE 
RETURNED TO YOUR OWN FROGRADM. SEE ALSC! THE HELP INDEX ON PAGE 27; 


7) CTRLAP IS PS/S FOCAL’S BREAK CHARACTER. 


THES MEINUAL WAS TYPESET ON AN INEXPENSIVE MATRIX PRINTER MADE BY. 


CEMTRONIC — CATR COMPUTER Clk Fe. 
COME WALL STREET | 
His Sir. Pek HAMPSHIFE | 7 eazeas1 
TELEFPHC mle | = Cees > SHes—e2144 


PAIGE 


Getotetck CHANG 3ES FROMM FocmL. 1Seo: 


OROGRAMS WRITTEN IN FOCAL, 1963 SHOULD REQUIRE ONLY ONE a a 
UNDER PS/8 FOCAL, 4974; es ates 


THE INPUT CEVICE 1s. SWITCHED To THE HIGH SPEED PAPER TAPE READER 
WITH THE “OPEN INPUT PTR: COMMAND AND SWITCHED BACK TO THE 
TERMINAL WITH “OPEN INPUT TTY:, ECHO” INSTEAD OF WITH THE * +“ 
COMMAND OF FOCAL, 1969. 7 Ho. 


THER Ene INCLUDE : 


13 EXTENDED LIBRARY FEATURES INCLUDING DEVICE- -INDEPENDENT CHAINING | 


oe 


MOTE : 


AND SUBROUTINE CALLS BETHEEN PROGRAMS. 


FILE REACING AND WRITING COMMANDS. 40 DIGIT PRECISION, OR STANDARD 
TRIG FUNCTIONS MAY BE DELETED BY THE INITIAL DIALOGUE TO ALLOW UP 
TO 222 VARIABLES WITH 5509 CHARACTER PROGRAMS: WITH ALL FEATURES 
RETAINED, 98 VARIABLES ANE 35aG CHARACTERS REMAIN. SEE PAGE Ze. 


“ 


COMPUTED LINE NUMBERS: SEE PAGE a. 


» TABULATION, 


INPROVED DISTRIBUTION AND RANDOM? INITIALIZATION OF “FRANG?’. 


THE FS SEUDO-RANDOM NUMBER FUNCTION. 


UNLIMITED LINE LENGTHS. ‘Y 
CHARACTER MANIPULATIONS HANDLED WITH “FING FIND “FOUTC*. 

FSGN¢ G26 CFSGNCG>=4 IN FOCAL, 19691 

“ERASE ALL ANC “MODIFY? its NOT ERASE VARIABLES. 

IN ADDITION TO THE FDIS< DISPLAY. FUNCTION FOR ‘DEC’ S 34D DISPLAY, 
VERSIONS ARE AVAILABLE wee DISPLAY AND JOYSTICK FUNCTIONS FOR 
THE TEKTRONIX T-4992 GRAPHICS TERMINAL. | 


3 SPECIAL VARIABLES: ARE. PROTECTED FROM THE ° ‘ERAS EE" COMMAND -<-— 
ete, 7", BND, “# IS SET TO 1 BY THE INITIAL DIALOGUE IF 
ALL OF TIONAL FEATURES GF PSS FOCAL ARE DELETED AND TO 223408 IF 
STANDARD FEATURES ARE RETAINED: SEE - INITIAL DIALOGUE’, PAGE dz. 


PSS FOCAL’ S STARTING REDRESS «15 1Lazon cFIELD 1L>. 


CTRL-F IS THE BREAK CHRREACTER 


—PS/8 FOCAL DATA FILES ARE COMPATIBLE WITH EDIT AND TECO-a: 
HOWEVER, PS FOCAL PROGRAM FILES ARE SAVED AS CORE IMAGES. 


om 


wo 
Bane 


(COMMANcS 


ma ree memes ee ee: oe emt soe 


4c DIRECT COMMANDS ARE GIVEN WHILE FOCAL 1s IN COMMAND. MODE. THES 


ARE TYPED WITHOUT LINE NUMBERS AND FOCAL Ex Eee? THEM AS SOON AS THE 


RETURN BUTTON IS. HIT --- FOR EXAMPLE: 
+TYPE ee eo A sioond cutouts he VALUE OF 3+4> 
7. B8G0 var 


oh 


: ae. COR SEVERAL COMMANDS MAS BE GIVEN IN SEQUENCE: » 
*SET X=3 De ee ee ie pe ed j 
+5ET Yae 
+TYPE S+k+4, | 
3.6000 
+: 


ae ote INDIRECT COMMANDS ARE USED FOR LONGER PROGRAMS. THEY ARE TYPED 
FOLLOWING LINE NUMBERS ‘BETWEEN ae OL AND 341. 99 NOT INCLUDING INTEGERS 
AND MAY BE EXECUTED BY. A CIRECT GO 


#2. 1 SET MB 
"2.2 SET Y=2 
et S 3 TYPE Ste, |! 
*G0 

S. B09 
+: 


Rarities tears E 


THE GENERAL FORM oF. EACH Is GIVEN FOLLOWED CY EXAMPLES IN WHICH: 


<> ENCLOS E REQUIRED TERMS. | ot] ENCLOSE. ‘OPTIONAL TERMS. 
©> ENCLOSE COMMENTS. ONE LETTER ARBREVIATIONS MAY BE 
USED FOR COMMAND WORDS. % REFRESENTS A VARIABLE. Et. 
EZ AND ES ARE ARITHMETIC EXPRESSIONS. Li. L2 AND L3 
ARE LINE NUMBERS. Gi IS EITHER A LINE OF GROUP NUMBER. 
Li, Le, L3 AND Gi MAY BE REPLACED WITH ANY ARITHMETIC 
EXPRESSION NOT. BEGINNING WITH THE LETTER “AY. 


MOST COMMANDS MUST BE FOLLOWED BY Ai SPA CE. 


vt 


ELEMENTARY COMMANDS 


ASK 


- #*ASK [PRINT OUT IN QUOTES" 3 MEW 22 GINPUT VALUES FOR VARIABLES? 
ASK Y | EXPECTS A VALUE TO BE INPUT FOR ate 
AZ. (AIS THE ABBREVIATION FOR “ASK’> 
A B2. X, NUMBER CEMPECTS THREE VALUES TO BE tNPUT> 
A “HOW MANY? "M = <TYPES “HOW MANY” THEN SETS M EQUAL TO THE. RESPONSE? 


* ok * SPACE. COMMA OF. CARRIAGE RETURN WILL TERMINATE EACH NUMBER INPUT. 
TYPE A 7€ (BACK ARROW) TO ERASE A PARTIALLY ENTERED NUMBER WHICH MARY 
THEN BE RE-ENTERED. ALT MODE WILL CRUSE FOCAL TO LEAVE THE VARIABLE 
WITH ITS FORMER VALUE. IF “ASKING” FROM A FILE --- A SPACE, COMMR OR 
OTHER DELIMITER MUST PRECEDE A NEGATIVE SIGN. “-*. OR THE NUMBER WILL BE 
| READ AS POSITIVE. RESPONDING TO INITIAL CIALOGUE WITH ‘YES’ OR “4, 5° 
. WILL REMEDY THIS BY OQUTPUTTING A LEADING SPACE WHEN USING “ TYPE’. 


COMMENT 


*COMMENT | CLINES BEGINNING WITH Fl“ C* WILL BE IGNORED? 
COMMENT SGRT «COMMENTS ARE USED TO DESCRIBE PROGRAMS > 
G.. CABBREY IAT IOND 
CONTINUE DUMMY LINED 
*DO CLINE OR GROUP NUMBER I~ 7 nee? (SUBROUTINE CALLD 
po 7. 24 (TELLS FOCAL TO EXECUTE LINE 7. 24 THEN RETURN 
O448 — TO THE COMMAND | FOLLOWING THE DO" > 
pO ? <EXECUTES GROUP - 
DO ALL  ¢STRRTS EXECUTION ‘< PROGRAM AT FIRST LINE? 
D GLC 7.6 = —- CENECUTES LINE OR GROUP G1 THEN LINE 7. €> 


* % & DO NOT USE AN ARITHMETIC EXPRESSION STARTING WITH “AY AS 
A COMPUTED LINE NUMBER OR IT WILL “DO ALL’, 


ERASE 


ERASE CLINE OR GROUP NUMBER 7 ZEROES VARIABLES IF NO NUMBER GIVEN) 


ERASE 2.47 - ¢DELETES LINE 2 17 FROM INDIRECT PROGRAM? 
Es : {DELETES ALL aROUF 3 LINES 

ERASE CZEROES ALL VARIABLES > 

ERASE FILL CERASES ENTIRE INDIRECT PROGRAM) 


ok & & “ERASE” MUST BE THE LAST COMMAND ON A LINE. ERASE <LINE OR 
GROUP NUMBER> WILL CAUSE FOCAL TO RETURN TO COMMAND MODE AFTER ERASING. 


Mires Be 


+FOR MBLC, £22, £3) (COMMAND TO GE REPEATED <ES- “ELD /E2 +1 TIMES] 


FOR Ped. 7i TYPE 2 WILL TYPE A “3 SEVEN TIMES) 
Fok J=1.5;00 47.42 CWILL.DO LINE 17.1 FIVE TIMES? 
Foxs2.2,8:7 416 (WILL TYPE “20 40 68 Bo” 
FOR fd.4:00 7 <WILL DO GROUP 7. TIMES > 


* ok & THE “FOR COMMAND IS REPEATED --- ADDING: ‘4. COR EZ) TO Et ERICH 
SYCLE UNTIL E41 EXCEEDS E3. EXECUTION THEN GOES TO THE NEXT LINE. 
| | oo | 
*G0 CLINE NUMBER] ‘STARTS EMECUTING PROGRAM AT DESIGNATED LINE? 


ao STARTS EXECUTING INDIRECT PROGRAM AT FIRST LINED 


Be fae a  CABBREVIATION? 
GOTO 341 “STARTS EXECUTING PROGRAM AT LINE 3.1? 
Gu 7 | <“ TRACE FEATURE’ -- PRINTS FROGRAM. DURING EXECUTION | 


Bee 7 


UNTIL NEXT OCCURRENCE OF “?*> 
a8 ‘STARTS EXECUTING PROGRAM AT LINE X? 


i 


Cs ee 


“IF CEL LAL. Le, LZ] SGOES TO LINE Lay Le. ‘OR LS DEPENDING ON WHETHER, 
ne es 8 EL ‘AS -. (@ OR ee | aes a oe 
IF (492. 4.2.3.8. (FOCAL GOES TO LINE 2 27, 1.2 0R 3.6 IF x IS -,@ OR +2 
I (H-S94. 3.4.5.4. 7 CC IFS CHECKS THE VALUE INSIDE THE PARENTHESES > 
I (8-292. 37.90 GHITS” EXECUTION IF ¢B-3> IS POSITIVE? 
© YT £202. 75 T at SIF 2 1S NEGATIVE THEN GO TO 2.7; ELSE “TYPE 21° > 
1 (M242 4— SIE, G-2 ‘THEN GOES TO LINE. v> oe tS 


pene 


*MODIFY LINE NUMBER> = = CEDIT LINE? 


“MODIFY | Zz. re” | __FOLLOWED Ey’ A CARRIAGE RETURN AND A CHARACTER: WILL 
OUTPUT LINE 3. aH ITS FIRST es YOU pitt THEN : - | 


1) INPUT THE REST OF THE REVISED LINE AND HIT “ RETURN’ 

2> USE “RUB OUT’ TO ERASE SINGLE CHARACTERS 

3> HIT “LINE FEED” TO KEEF REMAINDER OF OLD LINE 

4> HIT CTRL“L TO GO TO NEXT OCCURRENCE OF “x” 

S) HIT CTRL“BELL TO CHANGE SEARCH CHARACTER: THEN HIT NEW CHARACTER 
6) HIT “4° TO KILL LINE OVER TO LEFT MARGIN | 


Quit 
*OUIT | <TERMINATES PROGRAM EMECUTION 


Wat Se A ABBREVIATION 


RETURN 


M=F ING) — SSETS & TO DECIMAL ASCII CODE OF NEXT CHARACTER INPUT? 
DUMMY=F OUT C202) COUITPUTS LETTER “K* AND SETS DU=207> | | 


+RETURN (CRUSES ESCAPE FROM A SUBROUTINE TO THE COMMAND 
FOLLOWING THE CALLING “DO’ OR “LIBRARY GOSUB” > 

Re a Fe ABBREVIATION | 

¥SET Y=<NUMBER. VARIABLE OR EXPRESSION? SETS VARIABLE VALUES? © 

SET Y=37 (CAUSES “Y TO TAKE THE VALUE 37> 

& A=116/P+32 CCAUSES “AY TO ASSUME THE VALUE OF 116- P4+32> ~ 

> Yard _ (SETS THE NEW VALUE OF Y EQUAL TO 4 PLUS OLD VALUE> 

3 2st (SETS Z EQUAL TO VALUE OF FROTECTED VARIABLE “# > 

S it ioe CONLY WY TO ZERO PROTECTED VARIABLE ~ #° > 

S 


aisha a 


pa 


*TYPE CNUMBERS, VARIABLES, EXPRESSIONS, TEXT TIN QUOTES, Lt OR ZI 


“4 fe eee ae 


TYPE 3 oo COUTPUTS A 3 OM THE TERMINAL OR OTHER OUTPUT DEVICE? 
* a COUTPUTS THE VALUE OF #2” 3 
le or OUTPUTS THE VALUE OF THE EXPRESSION KenL? 

"HI THERE" <GUTPUTS THE GREETING “HI THERE) — 

. SOQUTPLUTS A CARRIAGE RETURNL INE FEED> 

is eae a — ae ee COUTPUTS CHARACTERS “Ar. “BY AND “C’ VERTICALLY? 

* CQUTPUTS A CARRIAGE RETURN WITHOUT LINE FEED? 
<P CQUTPUTS VALUE OF SYSTEM STATUS VARIABLE, *°#° > 
"ANS: ". 2645 CGUTPUTS “ANS: 31°). : 
1:8. eM | KOUTFUTS RETURNW’LINE FEED THEN Ao“ IN POSITION @> 
+ - COUTFUTS THE SYMBOL TABLE: 

2410. 7 {SETS THE OUTFUT FORMAT TO ALLOW UP TO 16 DIGITS 

| a eit, TO BE PRINTED. OF WHICH 7 MAY BE DECIMAL PLACES? — 
% _ | CFORMATS GUTPUT IN FOWERS-OF-TEN NOTATION? | 


+ ot oo THE INITIAL CIALOGUE’ S STANDARD FEATURES QUTPUTS A LEADING SPACE 
BEFORE EACH NUMBER IS “TYPED” --- THIS FERMITS NEGATIVE NUMBERS TO BE | 
READ AS NEGATIVE FROM A FILE WRITTEN IN THIS MANNER. FEATURE & PERMITS 
QUTPUTTING A “= AS IN FOCAL, 1969 SNOT RECONMENDED FOR WRITING FILES>. 


eae 


4HWRITE C GROUP OR LINE NUMBER 2 LISTS INDIRECT PROGRAM? 
WRITE 2. 27 | = COUTPLTS LINE 2. 27 oF THE INDIRECT PROGRAM? 
Mo |  CGUTPLUTS GROUP 2) 

WRITE ALL | COUTPLITS ENTIRE INDIRECT PROGRAM? 

NA ss ABBREVIATION FOR WRITE ALL 3 

2. CABBREVIATION FOR “WRITE ALL” > 

MW Gio | COUTPUTS GROUP OR LINE GIVEN BY “Gi- > 


* ok & DO NOT USE AN ARITHMETIC EXPRESSION STARTING WITH “A AS AD 
COMPUTED LINE NUMBER GR IT WILL “WRITE ALL’. “WRITE MUST GE THE 
LAST COMMAND ON ALINE. . | 


PAGE 7 


i. BRR COMMANC:S 


a AS DEVICE NAMES : 


Sys: SYSTEM DEVICE «DSK: IN DISK SYSTEM DTAG: IN DECTAPE SYSTEM? — 
OSK: THE DISK IN DISK SYSTEMS: DECTAPE #9 IN DECTAPE S'‘STENS 

| (THE AUTHORS SUGGEST THAT DECTAPE SYSTEMS “ASSIGN DTAL:DSK:*> 
_ &* DSK: IS ASSUMED IF A DEVICE IS NOT SPECIFIED? 
DTAG: - DTA7:  DECTAPE DRIVES 
LTA@: - LTA?:  LINCTAPE ORIVES 
MNTAG: - MTA7: MAGTAPE ORIVES 


PTR: HIGH SPEED READER 
PIP: HIGH SPEED PUNCH 
LF'T : LINE PRINTER | 


‘TTY: TERMINAL ee ® - 
“REFERENCING A NON-EX SISTENT DEVICE MAY’ CAUSE THE. COMPUTER TO ENTER AN 
INFINITE LOOP WAITING FOR THE DEVICE. RECOVERY IS MADE BY USING THE 
“SWITCH REGISTER --- LOAD ADD 16200 AND START. = 

“LIBRARY CALL 


“LIBRARY CALL C DEVICE: IKPROGRAM NAMED | <LOADS ‘SAVED PROGRAM) 


LIBRARY CALL CHISOR — LORDS: PROGRAM “ CHISOR. FC’ FROM DSK:> 
LC OTRE:PRGRAM ——— .<LOARDS “PRGRAM. FC’ FROM DECTAPE DRIVE #2 
* = SLOADS ‘TESTI. FC* FROM DSK: 


tL C JESTiL 
oOo Ok FOCAL RETURNS, TO. COMMAND: MODE. FOLLOWING A “LIBRARY CALL’. 


LIBRARY DELETE 
LIBRARY DELETE COEVICE: ‘JPROGRAM NAME> ‘DELETES FILE FROM DEVICE? 
i TBRaRe: CELETE TTEST  eDELETES. PROGRAM “TTEST. FC’ FROM DSK: 
LO DTA?:PROG = “DELETES “PROG. FC’ FROM DECTAPE DRIVE. #7 
LD HOLD. Bepa 8s DELETES DATA FILE "HOLD. 5° ) 
* * © LIBRARY DELETE ASSUMES “©. FC’ FILE NAME EXTENSION; OTHERS. MUST 
BE SPECIFIED. “LIBRARY DELETE’ CLOSES ANY OPEN GUTPUT FILES. 

: ee Seis 


+#LIBRARY GOSUB L DEVICE: -IKPROGRAM NAME> C GROUP OR LINE NUMBER J 


LIBRARY GOSUE TEXT 43.7 CLINE 413.7 OF * TEXT. FC’ BECOMES SUBROUTINE WHICH 


RETURNS TO THE COMMAND FOLLOWING “GOSUB* > 


LG SUMSG@R = = = TREATS WHOLE “SUMSQR. FC’ PROGRAM AS SUBROUTINE? 
LG DTAS:K Y 7 TREATS GROUP 7 OF “™ ¥’ LIKE A “DO* SUBROUTINE? 
LG BOBO G4 _ . (°GOSUBY TO LINE OR GROUP EQUAL TO VALUE OF G1. 


7s bdo NOT USE EMPRESS IONS BEGINNING WITH “AY. 


‘oe * IF THE VERSION OF A PROGRAM ISSUING A * GOSUB- 1S NOT SAVED, ANY. 


CPEN QUTPUT FILE IS CLOSED AND THE PROGRAM is SAVED AS “FOCAL. TM’ BEFORE 


— EXECUTION OF THE ‘GOSUB’. 


LISRARY List. 


*LIBRARY LIST (DEVICE: IFIRST FILE NAME TO BE LISTED] 7 
CLISTS PROGRAM AND DATA FILe NAMES WITH FOCAL 
EXTENSIONS ”, FC’ =PROGRAN, *. $B =DATA FILES 


LIBRARY LIST sate ait pte LISTS FOCAL FC FIND FD FILES ‘SAVED. ON DSK: o 
oe ? | | CABBREVIATIGN> — , 
LIBRARY LIST DTAZ: LISTS FILES SAVED ON DECTAPE DRIVE #22 

LL DTRE: TEST -  CSTARTS LISTING WITH “TEST. FC“ | 


* * * FILE LENGTH IS PRINTED IN BLOCKS; 1 BLOCK IS ABOUT 508 CHARACTERS. 


LIBRARY Folin 


LIBRARY RUN CDEVICE: 1CPROGRAM NAPE CLINE NUMBER J 
| SBEGINS EXECUTION OF NAMED PROGRAM? 


LIBRARY RUN JOHN  CLOADS “JOHN. FC’ THEN BEGINS PROGRAM EMECUTION? 
L R OTAZ: ZONK |  <RUNS “ZONK. FC’ FROM DECTAPE DRIVE #2> 

LR POP 22. $4 STARTS. EXECUTING “FOP. FC’ AT LINE 22. 84) — 

LR ZOWIE EL  <STARTS EXECUTING ” ZOWIE. FC’ AT LINE E4> 


* * * PROGRAMS CONTAINING “ RUNS’ SHOULD BE SAVED BEFORE EXECUTION. 


LIsSkRARY Seve 


+LIBRARY SAVE CDEVICE: 1:PROGRAM NAME> 


LIBRARY SAVE PROG § CSAVES INDIRECT PROGRAM PRESENTLY IN THE TEXT 
ees : _ . BUFFER AREA UNDER THE NAME “PROG. FC’ ON OSK:> 

LS DTAG: ZAAP SSAVES “ZAARP. FC’ ON DECTAPE DRIVE #62 

L S PRGNAM <SAVES “PRGNAM. FC’ ON DSK: > 


x o% * OLD “PRGNAM’ IS DELETED WHEN NEN “PRGNFIM’ IS SAVED. THIS 
COMMAND CLOSES OPEN QUTPUT FILES. | au 4 


LI6rA tht Sr’ eer T 


A 
‘LIBRARY EXIT CLEAVES FOCBL: RETURNS TO PS/8 MONITOR? 


ie, °° * — CABBREVIAT ION? 


See 


it 


 PRGE 


FILE COMMANDS. 


meine, eee steemmutn mapmesins ae en mem eee mam meena een emp ye 


THE EXPERIENCED PROGRAMMER MAY READ AND WRITE. PSs COMPATIBLE DATA 
ee nee WITH MANY OE i SEE FS ad DEVICE NAMES, ON FAGE fas | 


 psve FOCAL ASSUMES . FC. (AND BB as NAME, EXTENSIONS FOR PROGRAM FIND | 

. DATA FILES RESPECTIVELY. DATA FILES ARE SAVED IN STRNDARD PS?S AS CLI 
. FORMAT AND ARE COMPATIBLE WITH EDIT AND TECO-8. PROGRAM FILES ARE - 
SAVED IN CORE IMAGE FORMAT AND MAY BE TRANSFERRED BY PIP GNLY WITH — 


THE “I” OPTION. TO PRODUCE AN ASCII FILE CONTAINING A FOCRL PROGRAM. 


_ OPEN AN OUTPUT FILE: “WRITE ALL” THEN “OUTPUT FLOSE". 


“THE TERMINAL <TTY:> IS. PSs FOCAL’ S NORMAL INPUT AND OUTPUT DEVICE. 
. THE “OPEN INPUT’ COMMAND PERMITS SELECTING ANOTHER DEVICE FOR INPUT 
~ CDEVICES LISTED ON PAGE 7>. “OPEN GUTPUT’ DOES THE SAME FOR OUTPUT. 
BE SURE TO CLOSE ONE OUTPUT FILE BEFORE OPENING: ANOTHER. 


+ ECHO ADDED TO THE INPUT COMMANDS ECHOES THE INPUT DATA ON THE OUTPUT 


DEVICE. WHEN ADDED TO. ‘OUTPUT COMMANDS, “, ECHO” CAUSES THE OUTFUT TO BE 
-ECHOED ON THE TERMINAL. | : 


~* QUTPUT CLOS E- EMPTIES. THE ‘OUTPUT BUFFER ONTO THE DEVICE AND SAVES THE 


FILE IF THE DEVICE Is FILE STRUCTURED CDISK OR MAGNETIC TAPE >. 


“THE “OPEN INPUT TTY: » ECHO™ “COMMAND WILL RESTORE THE TERMINAL AS THE 
INPUT DEVICE WITH ECHO. AFTER AN ERROR OCCURS OR “CTRL/P’ IS STRUCK. 
THE TERMINAL IS RESTORED ‘AS BOTH INPUT AND OUTPUT DEVICE. 


READING RAND WRITING CAN BE RESUMED WITH PREVIOUSLY OPENED. NON-TTY : 
‘DEVICES THROUGH “ OPEN RESTORE INPUT” AND “OPEN RESTORE OUTPUT” COMMANDS. 


DIRECT FILE COMMANDS MAY BE ENECUTED AS MENTIONED UNDER “MERGING _ 
PROGRAMS’ OR A SERIES OF DIRECT COMMANDS MAY BE EXECUTED AUTOMATICALLY 
FROM A FILE. FOR EXAMPLE, IF YOU WISHED TO GET LISTINGS OF SEVERAL 
PROGRAMS, YOU COULD PREPARE THE FILE “LISTAL. FD” USING EDIT OR TECO-S: 


TYPE EEE OeL STING OF TES STA-TESTE: "111! 
LIBRARY CALL TES STi : 
WRITE ALL . 

TYPE fil! 

LIBRARY CALL TEST 

WRITE ALL | 

TYPE fbr | 
LIBRARY CALL TESTE: 
WRITE ALL ees 
TYPE fttea. 

OPEN INPUT TTY:, ECHO 


THEN, BY GIVING THE pIReee FOCAL COMMAND + OPEN INFUT LISTAL’, ALL 3 
PROGRAMS WOULD BE OUTPUT WITHOUT OUR: INTERVENTION. 


NOTE : WHEN WRITING ae oe FILES, IT 15. NECESSARY. TO INCLUDE A 


SPACE, COMMA, CARRIAGE RETURN OR OTHER DELIMITER PRECEDING 
A MINUS SIGN, OTHERHISE THE NUMBER WILL APPEAR POSITIVE WHEN 
‘ASKED’. A PRECEDING SPACE WILL BE AUTOMATICALLY “TYPED IF 
THE INITIAL DIALOGUE RECEIVES a ANSWER OF “WES” OR “4, 5°. 


PAGE 16 
OPEN, I Ne IT 


*OREN INFUT COEVICE: It FILE NAME IC. ECHO J (PREPARES A FILE TO BE REA 
WITH “ASK OR “FING3* > 


OREN INFUT 6LcWe COPENS - BLOOP. eo FILE FROM DSK: 


OT DTA: REC. ECHO <OPENS “RED. FO FILE FRM DECTARE DRIVE #4 (RANG: 
ee ae ee re ee 38 ECHO (CIM OUTPUT CEVICE WHILE READING “RED? > 
OL PTR: © CPS WILL TYPE AN “7 OM THE TERMINAL; HIT THE 


, 7 | SPACE BAR AFTER PAPER TREE IS LOADED IN READER. 
OFEN INPUT TTY :. ECHO RES TORES TERMINAL TO NORMAL STATUS. 


* * * CTRLZ 1S THE LAST CHARACTER IN A FOCAL CATA FILE. ATTEMPTS 
TO READ PAST THE ENO-OF-FILE WILL CAUSE A °?° TO BE OUTPUT ON THE 
TERMINEL AND WILL RESTORE THE TERMINAL AS INPUT CEVICE. 
OrPEM OUTRUT | 
“OPEN OUTPUT CDEVICE: J0FILE NAME IC. ECHO] <PREPARES A FILE TO BE WRITTEN 
| | | ee WITH “TYPE. “FOUTCAI’ OF 
ECHOING FROM INPUT FILE? 


OFEN CUTFUT AEC - COPENS “ABC, FO’ TO BE WRITTEN ON THE DSK: > 


(OO OTA? 22 COPENS “25. FO’ FILE ON DECTAFE DRIVE #72 , ee 
2 Reels /ECHO ” “CECHOES OM TT: WHILE OUTPUTTING TO PUNCH: BE 


7 | | SLIRE TO GIVE AN OUTPUT CLOSE” WHER DONE? — | 
4 pparscamen ee HILL BE CLOSED IF THE COMMAND “LIBRARY SAVE? 


OF “LIBRARY CELETE” age GIVEN OF IF * LIBRARY GOSUE- 1s GIVEN BY A “VERSION 
OF A PROGRAM THAT HAS NOT BEEN SAWEL:. | ge | 


PEM eS TORE | rat. TO 


*OPEN RESTORE INFUTE. ECHO) | a - ¢RESUMES INPLT FROM FILE? 
OPEN RESTORE INFUT “RESUMES INPUTTING CATA FROM A PREVIOUSLY OPENED 


INPUT FILE APTER USING THE TT: WITH AN 
“OPEN INPUT TT :, ECHO > | 


OF I , : aoe 
OR TE 2 4S AME. PLUS EC HOS 
Oren RESTORE OUTEUT 
+OFEN RESTORE GUTPUTE. ECHO I | - CRESUM ES QUTPUT TO FILE: 


OPEN RESTORE OUTPUT - RESUMES OUTPUT TING itd. PREVIOUS LY! OPENED | 
| OUTPUT DEVICE AFTER: USING TT: 

i | |  €SAMES . gt 

O RF O. ECHO oo SSA PLUS ECHO? 


uTeUT TLS a 


OUTPUT CLOSE ENDS FILE WRITING AND SAVES CUTPUT FILE IF DEVICE 
IS FILE STRUCTURED --- DISK OR MAGNETIC TAPED 


OC — | CABEREM LATION: 
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FILE ANG CHARACTER HANGL ING PROG FAs 


WORDS | | 
GROUP 2 SETS UF THE - WORDS: FILE. | ‘GROUP 2 SCANS IT. ECHOING ONLY THE 
WOFOS WHICH START WITH THE SEARCH LETTER. OBSERVE: THE PROGRAM LISTING 
AMO EXECUTION: ALSO NOTE COMPUTED LINE NUME a * USED IN LINE 2. 68 
TO MINIMIZE TIME IN THE. CHARACTER INPUT LOOP: | a 2 


4WRITE ALL 
C-PSS FOCAL, 197. 


as COMMENT = - WORDS” Pe REPL ey g. “HUTSMEN oF OMST 
18 GFEM CUTPUT DTA: He SROS; OPEN GUTPUT TTY :; ERASE 

28 TYPE '“ENTER WORDS. “FOLLOW EACH WITH A SPACE: ae. 
TYPE " CENTER A SPRICE By ITSELF Ta CLOSE. FILEs"!! 
48 TYPE :5°? "| OPEN RESTORE OUTPUT. ECHO | 
SQ IF ComRBSeF INC) —{6G294. 5) OFEN OUTPUT TTY: 

3 TYFE ' "MORE? "; OPEN. RESTORE OUTPUT. ECHO 

4 IF C“FABS<F INC >-168) 24. af OUTPUT CLOSE: GOTO 2.7 


Fy 
ce 


 & As] A Ser my ee 
re re eee 
t..! 


“J 
mi 


TYPE !“ENTER SEARCH LETTER: “SET LeFINGsT It! 
TYPE “WORDS STARTING WITH "15 D=FOUTCLY T eo 
Oren INPUT DTAZ: WORDS: SET S=160: SET P=2. 6 

ET CeFING; IF ¢FABS(C-S 292 2. 7 I C-FABSCL-C92 ss 
OPEN RESTORE INPUT. ECHO; T !:5)SET DUMMY=FOUTCO> 
TL ¢-FABSCFING )-S>9P: OPEN RESTORE INFUTZG 2.4 
GPEN INPUT TTY + ECHO: TYPE UIMDOME. “11; QUIT | 


P32 
t ; ; 
“4 i) Of fe Gb ha be 
GQ & hi Hs he 


ENTER WORDS; FOLLOW EACH wie A SPACE: 
‘ENTER Fi SPACE BY ITSELF TO ‘CLOSE FILE? 
> KINCAID 
MORE? BUTLER 
MORE? CRAWFORD | 
MORE? KAY 
MORE? POLLARD 
MHHRES KELATT 
MORE? =. 


CONE. 
#G0T 2.47 


ENTER SEARCH LETTER: 


“WORDS STARTING WITH K: 
KINCAID 
KAY 
KLATT 

DONE, 


2 


“ALPHA ALPHAGETIZES 


PROGRAM ON PAGE 14. 


- ALPHA 


A “WORDS. FO’ FILE PREPARED BY THE 


 - PAGE 12 


“WORDS. FCC 


NOTE THAT THESE PROGRAMS ARE EXAMPLES ONLY AND NOT RECOMMENDED FOR 
GENERAL USE SINCE ERROR CHECKING THAT HOULD MAKE THEM USER-GRIENTED 
WAS EXCLUDED FOR THE SAKE OF BREVITY. | 


*4RITE ALL 
C-PS-8 FOCAL, 


& 
rer 
Liha he Bo 

CH Ss CA me OF 


> COMMENT : 
| OPEN INPUT OTAZ : HORDS 

OPEN GUTFUT OTA: WORDS. ECHO: ERAS E 
OO 18; IF «LEs, 3. 3 

SET LE L>=LE; FOR. j= 1. LE: SET. BCy3s 
OO 16: IF “LEs, =. 2 


fe Sa Figs 


“ALPHA S174 BY E. SMITH OF OMS 


@1.46 IF (LE-LEc413.°4. 45; SET N=LE; GOTO 1. 
61.45 SET N=LEci > 

81.59 FOR I=4.N; p00 2 
61.69 GOTO 1.2 ~~ 


ff bhi fi Ss pb 
GS & & ch cs 


QO & & 
Of Pho fa fe 
s. 


G 


IF 
ae 


IF CACI9-BC1992 462.3 | 
FOR J=1,LECL)s SET D=FOUT(BCJ>)s SET BCJ?=0 
TYPE 


"; SET I=N41500 41. 25; RETURN 
CI-NOSDO 2.4: TYPE " "3 RETURN 


J=1. LE: | 
ET I=N+1; SET CHANGE SCHANGE+1; TYPE on 


SET D=FOUTCACT) >; SET ACD =@ 


.16 FOR I=4, LEC; SET D=FOUT< Ber3 


2 TYPE 7 | : 
. BY OUTPUT CLOSE: TYPE vei CCHANGED. 3 4. 


Mm] & @ 
tab tab bal tS 
LF 


46 CPEN 


p> 
SS 

A Wh 

rr Gy me 


794 FIND 
734 AND 
FOL 124 
124 794 


124 123 


lgs 124 
123 i24 


Ze T: 


QUITE te4 ic 


Le4 


AND 


122 
rod 
est 


eo. 


3 


LeE=H 
SET ACLE+2 =F INC3s IF CAELEFL3-454940. 3 
IF CACLE+29-1899048. 4. ie re : 

SET LE=LE4+1; GOTO 16. 

SET AC 


LE+29=4 © 


123 
{25 
ALL 
ALL 
ALL 
ALL 


ALL NUMER ICS C&DEREC ALPHASETICS 


ALL MUMERIOS ORCERED ALPHABETICS 


AND NUMERICS ALPHABETICS GRDERED 
AND ALPHABETICS NUMERICS ORDERED 
ALPHARBETICS AND NUMERICS ORDERED 
ALPHABETICS AND MUMERICS GRDERED 


I 


(J23 SET ACJD=8 


INFLUT TTY: ECHO; TYPE 1) "DONE. ". $43 QUIT 


ALL NUMER ICS. ORDERED ALPHABET ICS 
QUITE 


QUITE 
QUITE 
CWITE 
GUI TE 
CUJITE 


USEFULLY | 
USEFULL 
USEFULL’ 
USEFULL 
USEFULL 
USEFULLY 
USEFULLY' 


ARITHMETIC 


Ey {PONENT IATION 


TYPE 372 


SET Mayr? 


TYPE 273, Ss 


| ‘MULTIPLICATION 
TYPE 24 | 


SET K=xX#Z 


“DIVISION | 
TYPE 6/2. 


SET xe /Z 


| ADDITION 
TYPE 242 — 
SET nev+Z 


SUBTRACTION — 
TYPE 3-% 
“SET X=Y-z 


ENCLOSURES =~ 


PAGE 13 
‘SYMBOLS 


7 ay seanseiee 4 AN, INTEGER EXPONENT? 
(QUTPUTS A ’9° --~ 3 TO THE SECOND POWER? 
“SETS X EQUAL TO Y RAISED TO THE INTEGRAL Z POWER) 


SPRINTS AN aaa THE .. 5 Is IGNORED > 


ar cel 


COUTPUTS: AN °9) 


SETS: THE NEW VALUE OF * “ EGUAL TO * TIMES Z> 


tere - | | 
 CouTPUTS A 3°? 
— SSETS EQUAL TO Y DIVIDED BY 2 


“ees: 


COUTPUTS A Prager: i 
(SETS X EQUAL TO ¥ PLUS z> 


“gey 


<QUTFUTS THE VALUE OF 3-x>- 


SETS ‘a / EQUAL TO Yo MINUS 2> 


49,01, AND <> MAY BE USED IN MATCHED PAIRS 
TO ENCLOSE QUANTITIES WHICH ARE TO BE OPERATED 
ON AS A UNIT. 


ed ae Sere ee ee PAGE 14 
SPECIAL CHARACTERS : “A 


RETURN-LINE FEED tt rg he cet | | 
TYPE '!!'.e, 2! CQUTPUTS 4 CARRIAGE RETURN/LINE. FEEDS, THE VALUE OF 
wy FIND THEN = MORE CARRIAGE RETURNCL INE FEEDS. 


CARRIAGE RETURN cw ok a oe | 
SEE WHAT THE “# DOES TO LINE 16. 35 FIRST WRITTEN THEN EXECUTED : 
<NOTE THAT THE °° AND THE “=” ARE SUPERIMPOSED > | | 
14.35 TYPE "ASS". eM, beeen 

XS | 


TAR | | aes ; sy | aa Poe | | 
TRE GUTPUTS ENOUGH SPACES. so THAT THE. NEXT. CHARACTER MILL BE OUTPUT 
AT THE POSITION ON THE LINE INDICATED BY THE VALUE AFTER THE “:”. 

TAB WILL HAVE NO EFFECT IF THE POSITION SPECIFIED HAS BEEN EXCEEDED. 


SEE WHAT THE “:° DOES TO LINE 14.37 FIRST WRITTEN THEN EX ‘ECUTED : 


ie aces TYPE "NAME--—" : 25. "ROGER" :-40, "AGE = ", 2443, rrire 


~NAME--- ROGER | AGE = = g606 


CUITPUT FORMATTER C2) oa | | | | 
SEE WHAT THE ““° DOES TO LINE 12. 26 FIRS ST. WRITTEN THEN EMECUTED ae 
12.36 SET X=422. 456; TYPE 26. B+ M83 TYPE “24.62 %'55T & 3. o He iT 7 a 
123. 456 <_, | _ tes 
6 tas, So 

» f2e4 _ | 

@. 1234 SSOCGGE+GS | | 

hd. B27 PERMITS FOUR DIGITS To. BE ouTPUT INCLUDING ‘UP To TWO DECIMAL 
PLACES; “TYPE x’ ALONE GIVES POWERS-OF-TEN NOTATION. “x%* DOES NOT 
CHANGE CALCULATION PRECIS ION; -THAT IS DONE WITH THE INITIAL DIALOGUE. 


SYMBOL TABLE _ C#3 ae | a , 
were | — CQUTPUTS THE Lts ST: OF DEFINED. VARIABLES NOT INCLUDING 


PROTECTED VARIABLES. 6E SURE TO USE AN OUTPUT 
FORMAT <%> THAT WILL NOT MASK PRECISION. oo 
SCRIPTS OVER 33 WILL, NOT GUTPUT ACCURATELY. 


QUOTATION MARKS c"7% | 

WORDS MAY BE TYPED BY ENCLOSING ‘THEM IN QUOTES. 2 

SEE WHAT THE " DOES TO LINE 14.65 FIRST WRITTEN THEN EXECUTED: 
14.65 TYPE "THE ANSWER IS ". 34, rbrtt 

THE ANSWER IS 4141. oogo , 


TRACE | 7 Stirs ee 5 ee ce a ote ek. ye ts 
THE FIRST TIME FOCAL READS A“? CEXMCEPT WITHIN QUOTES? IT WILL 
— START OUTFUTTING THE PROGRAM WHILE IT I5 BEING EXECUTED. THE NEXT © 
TIME IT MEETS A “2° IT WILL STOP OUTPUTTING THE PROGRAM. 
SEE WHAT THE “7° DOES TO LINE 15. 69 FIRST WRITTEN THEN EXECUTED: 
15.68 SET X=3;7 SET = SHTYPE KEW EF 
SET Yo; TYPE : A’, a. 6o0a! 
A “GO ?°. COMMEND WILL CAUSE THE WHOLE PROGRAM TO BE ‘TRACED’ 


AN ATTEMPT TO READ PASTA CTRL?Z END-OF-FILE CHARACTER WILL OUTPUT 
Ai-? ON THE TERMINAL AND RESTORE THE TERMINAL AS THE INPUT DEVICE, 


_ POWERS-OF- -TEN ss LE OR @] 
+E? MAY’ BE CHANGED TO “@ IN THE INITIAL DIALOGUE. 


| SEE WHAT THE “E’ DOES To LINE 6. @9 FIRST WRITTEN THEN EXECUTED: 


18. gaa8 7860. 2G 8. e123 a3 760006+218 


RUBOUT KEY | | : 
WHEN WRITING AL PROGRAM, ONE. CHARACTER WILL BE DELETED FROM THE CURRENT 
- LINE WHEN THE RUBOUT KEY IS STRUCK — RUBOUT WILL ECHG. RS Av’ --- THUS: 
7 PLWEANSSERSE’ BECUMES “PLEASE”. : | 7 


CTRLYC  <PRESSING - pL ‘Cr AT THE SAME. TIMED 


-. WILL RETURN USER TO THE PS’8 MONITOR WHEN FOCAL IS USING PS/s_ 
-. ROUTINES --- THE “LIBRARY EXIT’ COMMAND IS PREFERRED FOR - 
‘LERVING PS/e FOCAL, 1974. CTRL/P IS THE BRERK CHARACTER. 


-CTRLYG ar eeeaserica Sere /. ine -@° AT THE SAME TIMED 
USED WITH THE oS ee eee 


CTRLVL «(PRESSING ‘CTRL’ AND “L’ AT THE SAME TIMED 
USED WITH THE “MODIFY” COMMAND TO SKIP TO THE NEXT SEARCH CHARACTER. 


 CTRLYP CPRESSING “CTRL AND “PY AT THE SAME. TIMED | 
IS PSS FOCAL’S BREAK CHARACTER --- INTERRUFTS PROGRAM EXECUTION AND 
CAUSES FOCAL TO. PRINT 1S eo. 2 


- CTRLYZ | -<PRESSING CTRL’ AND “2° AT THE SAME TIMED 

- IS THE LAST CHARACTER IN A PS-8 FOCAL DATA FILE. ATTEMPTS TO READ : 

PAST THE END-OF-FILE WILL CAUSE A °?° TO BE. TYPED ON THE TERMINAL AND 
ey RESTORE THE TERMINAL AS THE INPUT DEVICE. 7 
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LINE FEED > | vt oe. : Pie 
USE WITH THE “MODIFY” COMMAND TO RETAIN REMAINDER OF MODIFIED LINE. 


KILL LINE c¢)2 | 
- WHEN WRITING A PROGRAM, “€° DELETES EVERYTHING: OVER TO LEFT MARGIN. 
IN RESPONSE TO “ASK* COMMFIND. “€° CANCELS THE NUMBER BEING ENTERED. 


RETURN KEY 
USED WITH THE “MODIFY COMMAND TO DELETE REMAINDER OF MODIFIED LINE. 
RETURN’ IS A LEGAL SYMBOL FOR SEPARATING DATA BEING REQUESTED BY 
AN ° ASKS COMMAND. | | 


LT MODE KEY a ie * 7 " 
TN RESPONSE TO AN “ASK’ COMMAND, ALT MODE CAUSES THE VARIABLE 
‘TG RETAIN ITS PREVIOUS VALUE. a } 


SPACE KEY : | ; : 
Sod 1s A LEGAL SYMBOL FOR SEPARATING DATA, REQUESTED By AN -RSK-. 


COMMA | c,2 


ae OS 


IT 15 A LEGAL SYNBOL FOR SEPARATING DATA IN * TYPES AND - ASK A aitetal 


SEED WHAT Mass “,” BPOES TO LINE 26. 40 FIRST WRITTEN THEN EXECUTED: 
Ze, “4a TYPE 2, 3; S'S, 4273, Peat | 
2.0089 3.0000 6 8333 1728. Bo 


SEMICOLON | ® EO Ms 


. SEPARATES COMMANDS WHEN PLACED TOGETHER ON ONE LINE. 


SEE WHAT THE “;° DOES TO LINE 27. 42 FIRST WRITTEN THEN EMECUTED : 
2f. 42 SET H=17; TYPE Sey SET Kes/?s TYPE " ",Abs, Pi! 
ks B80 3. 4236 se a ae 


 -PRGE 1? 


FUNCTIONS © 


“FOR MOST FUNCTIONS, A SAMPLE LINE 1s SHOWN | AND THEN EXECUTED: 
_*6AD” REPRESENTS THE ARGUMENT OF THE FUNCTIONS | | | 


NOTE: ARCTAN, LOG AND EXP FUNCTIONS ARE PRECISE. To LESS THAN 7 DIGITS. 
ss ARCTAN’S PRECISION IS MUCH REDUCED FOR: ARGUMENTS NEAR ZERO. 
SINE AND COS INE ARE PRECISE TO 40 DIGITS. | 


FABSCA? ABSOLUTE VALUE | 

EXAMPLE CHRITTEN THEN EXECUTED? 

BS. 406 TYPE. PRES(-3), FABSC2), 111 | : 
3. 6668 2. (0608 “< "ay 


FADC(A? ANALOG TO DIGITAL ‘INPUT. FUNCTION 
4. 22 SET M=FADCCADs TYPE. EL 


FATNCAD = ARCTANGENT ARGUMENT RANGE : B<ACIB-E 
85.25 TYPE. FATNCAD, t1t 3 com: OUTPUTS RADIAN ANGLE WHOSE TANGENT = 4. eo 
2. 7854 0 ) | 


(sorte TANGENT “FTANCAD’ IS NOT. AVAILABLE 
TANGENT IS COMPUTED AS THE QUOTIENT <S SINECOSINE) | 

5. SS TYPE FSINCA>/FCOSCA>, 111; COMMENT : OUTPUTS TANGENT OF 4 RADIAN | 
1. S574 


 FCOSCA> COSINE - ARGUMENT RANGE: Segagnaa <AC1O74 «= CRADIAINS? 
G6. 27 TYPE FCOSC1, FCOSC3729, 1118s (COM: OUTPUTS COSINES OF 4 & 4.5 RADIANS 
@. 5403 @. 0707 — 


FDISCA> DISPLAY FUNCTION: FOR bec TYPE, 34D DISPLAY 
EXAMPLE : | | oo 
87. 28 SET DUMMY=FDISCH, Y>. | | 

WOULD CAUSE A POINT TO BE PLUTTED AT POSITION 6x. > ‘ON DISPLAY 


DISPLAY FIND JOYSTICK FUNCTIONS FOR PSs FOCAL HAVE. ALSO BEEN WRITTEN | 
FOR THE FER Iouts T~4062 GBBERLCS TERMINAL. SEE PAGE 413. 


FEMPCAD EXPONENTIAL ee re ae ee ee ae ee ree 
@8. 24 TYPE FEXP(1>, FEXP¢2 47), !!!!s COM: NATURAL BASE TO THE POWER <A> 
2.7183 9.7582 oo eae ge. Pe Ge ee eg ae, ee 


2. PAGE te 


FITRCRS INTEGER — : | a 
@9, 12 TYPE, FITR¢ 3029. FI TRSE. 719), FITRE~2. 99>, 111) | 
8365 23. BO0G— =. Soe | | 


WARNING: LACK OF PRECISION IN FOCAL, 1969" S FLOATING POINT PACKAGE 
| MAY CAUSE FITRCA® TO PRODUCE ROUNDING ERRORS WITH NUMBERS OF 
MORE THAN. FOUR Of FIVE DIGITS. YOR MAY PROGRAM AROUND THIS 
PROBLEM BY ‘ADDING EMPIRICAL CONSTANTS To THE FUNCT ION ARGUMENT. 


FLOGCA® - NATURAL LOGARITHM _ os: i ae. 
14.44 TYPE FLOGCL>. FLOG<4. 2379. FLOGC1a>, bhte 
6.6000 4. 4435 2. 3826 — ae ase 


FRANC) RANDOM NUMBER 
11.22 TYPE FRANC >. FRANC 3, FRANC), FRANC), FRANC), ! 

a. S444 @. 7732 &. 2686 8.2352 6. S446 ss : | 
THE PSEUDO-RANDOM NUMBERS PRODUCED ARE PART OF A VERY LONG AND WELL 
DISTRIBUTED BUT DETERMINISTIC SERIES. YOU WILL USUALL'Y OBSERVE AN © 
ENTIRELY DIFFERENT SERIES EACH TIME FOCAL IS INITIALIZED. HOWEVER. 
FRAN > DOES NOT GENERATE TRULY RANDOM NUMBERS. 


12.34 7 MA. @ FSGNCZ. 72s." ", FSGNC-2999," ". FSGNCG2," "J FSGNC@1), Stl 


itp Sue SINE ARGUMENT RANGE: | neler acAcia74 CRADIANS 2 
.52 TYPE FSING 1), FSINCBD. FS INCR7=2, 229, 0408 | 
"@. 8415 6. 69GG- o. 2207 | - 


FSOT CAD SQUARE ROOT OF A POSITIVE NUMBER 
(48 TYPE FSOT<4> /FSQTCSSL3. FSOTK, GBISISS, 11! 
8868 419. 7727 oF eee | 


FING CHARACTER INFUT FUNCTION | 

ASKS FOR A CHARACTER FROM THE TERMINAL COR PILE); EXAMPLE: 
69.44 SET A=FING> ~ 

SETS “AY EQUAL TO THE DECIMAL ASCII CODE oF THE CHARACTER INPUT. 


OUTCRY CHARACTER OUTPUT FUNCTION | 
G9. 25 SET DUMMNY=FOUTCAD, | = | 
OUTPUTS THE CHARACTER WHOSE DECIMAL ASCII CODE EQUALS “A”. 


IF AN “L* WERE INPUT IN RESPONSE TO LINE. S. 44, “RAR? NOULD BE SET 
EQUAL TO 264. THEN LINE 9. 25 WOULD CAUSE AN “L° TO BE OUTPUT. | 
THE “AY ON LINE 9. 25 IS A DUMMY VARIABLE. one DECIMAL ASCII CODES. 
FOR FING? FIND FOUT CAD ON PAGE 28. ; : es | | 
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DISPLAY AINc i a DYSTICK FUNCTIONS 


FOR THE TERT YH HEE COMER ERIN, i 


Fors oe oe DIS SPLAY 
COORDINATES: 6 <= % < 41024 g ive 1024 


I=-1 PLOT A POINT AT 6x. Y> ae, 

I= @ DRAW A DARK VECTOR TO (MK Y>o 000 

I=¢1 IF IN GRAPHICS MODE. DRAM A BRIGHT VECTOR TO | 
(X.Y); OTHERWISE ENTER GRAPHICS MODE AND ORAM 
A DARK VECTOR TO ¢x, ¥). *~ 


Pern Larenenace JOrsTrIcK 


FJOYCID SETS VARIABLES KI AND Yo EQUAL Ta THE » AND Y 
LOCATIONAL ADDRES sES. IN THE INTERACTIVE GRAPHICS WNIT. 


a1 SETS AI ANC EQUAL TO LOCATIONAL ADORESSES. 
T= 8 TURNS ON JOYSTICK. WAITS FOR KEYBOARD 
INPUT BEFORE READING CURSOR COORDINATES. — 
I=+1 ASSUMES JOYSTICK PREVIOUSLY TURNED ON B'y 
A FOUTCA7>: READS CURSOR IMMEDIATELY. 


GRAPHICS FUT <> copes 


4... HOME 
47 .. TURNS ON IO"STICK FOR FJOYCL> APPLICATION 
24)... ERRISE SCREEN (REQUIRES .5 SECOND DELAY? | 
3G .. ENTER INCREMENTAL PLOT MODE ? 
Zi... LEAVE sini a {ODE 


INCREMENT AL PLOT MOGE © 
FOUTC) CODES: 


DIRECTION o$=oN NE E SE SU oo ONN 


BRIGHT POINT 32 23 34 35 36 37 38 39 
DARK POINT 40 41 42 43 44 45 46 47 
PROGRAM ; as SKETCH 


‘FOLLOWS JOY’ STICK ON DIS SPLAY> 


e110 SET I=6; FOR K=@,. 2, FouTC24>; C: ERASE AND PAUSE 
61.26 SET DUMMY=FJO9T¢(8>;C WAITS FOR: A KEY Ta BE HIT 
61.36 SET OUMMY=FDIS¢C@, “HOLD, YHOLDI+FDISCI. XI. YI2 
OL. 46 SET xHOLD=% “Is SET VHOLDSN SET ‘Isa; GOTO 1. 2 


NOTE: THE VERSION oF PSve FOCAL USING. FDIS AND PCY FOR THE 


coe T4802 EOD 18%-20% FENER YARIABLES. 
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MISCELLANEOUS © 


cea CN iN: mie inten cee ee eens int cei ects Smt 


EXPRESSIONS: = ARITHMETIC. EXPRESSIONS INCLUDE Fika’y’ EVALUATABLE GROUP 
OF UNGERS OR VARIABLES SUCH AS: AP (B+ 34K OR 22/7 


HIGH SPEED PREFER TAPE READER CAN READ IN FOCAL PROGRAMS: 


41>. TYPE ° OPEN . INPUT PTR: ae | 
2) AFTER “7 15 TYPED OUT, HIT SPACE BAR TO READ TAPE 
3? APTER °° is TYPED OUT. HIT PC TRESP* | 


USING YOUR TERMINAL’S LOW SPEED READER, YOU CAN INPUT PROGRAM TAPES 
BY FIRST TURNING GFF THE ECHO WITH “OPEN INPUT TTY:°; READING IN THE 
TAPE; AND THEN TURNING GN THE ECHO WITH CTRLYP OR “OPEN INPUT TT¥:,E”. 


THE FOLLOWING 3 LINE PROGRAM WILL ASK FOR 18 NUMBERS FROM THE READER: 


18. 63 GPEN INFUT PTR: oe ere. Le | 
¢PS78 WILL NOW OUTPUT A eos ON THE “TERMINAL AND WRIT FOR YOU 
TG SIGNIFY THAT THE TAPE Is LOADED BY HITTING THE SPACE GSR. 
19.65 FOR ¥=4, 40; ASK ACK) | 
10. 7@ OPEN INPUT TTY: ECHO: COMMENT on RESTORES TERMINAL TO NORMAL 


(HIGH SPEED PUNCH MAY BE USED TO PUNCH PROGRAM TAPES: 


L> TYPE “OPEN INPUT TTY: : OPEN OUTPUT PTF: We 
23 THEN TYPE ’ OUTPUT CLOSE; OPEN INPUT TTY: rE” 


LINE NUMBERS --~- MAY RANGE FROM. 4. G1 THROUGH 24. 99 BUT OO NOT INCLUDE 
WHOLE NUMBERS. | VARIABLES COR. ARITHMETIC EXPRESSIONS NOT STARTING WITH 
°R’ > OF THE CORRECT VALUE MAY BE USED IN PLACE OF LINE NUMBER REFERENCES 
CEXAMPLE: “GOTO Ko. «GROUP NUMBERS ARE INTEGERS FROM 1 THROUGH 21 AND 
REFERENCE GROUPS OF. LINES IN “DOr, “WRITE” AND “ ERASE” COMMANDS. 


MERGING PROGRAMS “AC AND “B* IS DONE WITH A SERIES OF COMMANDS WHICH | 
CONVERT “AY INTO A PS’S EDITOR COMPATIBLE DATA FILE AND THEN BRING IT 
IN “ON TOP- OF FROGRAM BO: 


1> LIBRARY CALL A | | 

2? OPEN INPUT TTY: | | - 

3> OPEN GUTPUT AO. (STEPS 3-4 WILL NOT. OUTPUT ON- ‘TERMINALD 

43 OUTPUT CLOSE; OPEN INPUT i : + ECHO e 

&> LIGRARY CALL B . - | 

6> OPEN INPUT A ¢HAIT FOR “2° ON TERMINALS THEN HIT “CTRL-P? 3 
7) LIBRARY DELETE A. Fo : | | 


THE MERGED PROGRAM WILL NOW BE IN, YOUR PROGRAM BUFFER. 
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PRECISION ~=- IF 4@ DIGIT PRECISION is NOT r RETAINED THROUGH THE INITIAL 
DIALOGUE. Ly 


PIP --- A PS/’8 SYSTEM PROGRAM WHICH CAN LIST VOUR ENTIRE DEVICE. 
DIRECTORY. TYPE “R PIP’ TO PS’@ MONITOR THEN “DEVICE:/L’ TO LIST. 
DIRECTORY. WHEN TRANSFERRING FOCAL PROGRAM FILES WITH PIP. BE SURE 
TO USE THE “/I’ OPTION AS THEY ARE CORE IMAGE FILES --- NOT ASCII!!! 


PROGRAM NAMES <--~ MAY HAVE UP TO SIX ALPHABETIC OR NUMERIC CHARACTERS. 


cleat teat sap WITH StikonRD Sainiaiad. PSs. FOCAL. PROGRAMS MAY GE 
7? BLOCKS LONG CABOUT 3500 CHARACTERS>?. IF FILES ARE DELETED THROUGH | 
THE INITIAL DIALOGUE, 41. BLOCK PROGRAMS ARE POSSIBLE. 


ae 
Ban 


PUSHDOWN LIST OVERFLOW --- bIHEN A PROGRAM USES A “DO” OR “LIBRARY GOSUB” 
COMMAND; FOCAL RECORDS THE LOCATION IN ITS PUSHDONN LIST SO THAT IT CAN 
“RETURN’ TO THE NEXT COMMAND AFTER COMPLETING THE “DO SUBROUTINE. IF 
TOO MANY SUBROUTINES ARE REQUESTED. THE LIST WILL OVERFLOW. TO REMEDY 
THIS SITUATION. REDUCE THE NUMBER OF BLOCKS OR SUBROUTINES IN PROGRAM. 


STRINGS --- ARE ANY suntés. OF CHARACTERS SUCH ais 


HELLO 

122. 5 

$93. 95 

NOW IS THE TIME. FOR foo GOOD MEN 
 TEST34 . 


THE ABOVE STRINGS WERE. TYPED BY SURROUNDING THEM WITH QUOTATION 
MARKS AS IN LINE 22. 25: 
22.25 TYRE " | HELLO"! 


STRINGS MAY ALSO. BE PRINTED OUT CHARACTER BY CHARACTER USING THE | 
- *FOUTC>”’ FUNCTION; INPUT OF STRINGS MAY BE HANDLED WITH THE “FING>? 
FUNCTION. LIST THE INITIAL DIALOGUE FOR AN EXAMPLE. 7 


THE ASK COMMAND MAY BE USED TO INPUT AND COMPARE 6 OR 1@ CHARACTER 
STRINGS (DEPENDING ON PRECISION RETAINED IN INITIAL DIALOGUE>. IT 
1S BEST TO RETAIN FEATURE “8° IN DIALOGUE WHEN USING THIS TECHNIQUE. 


22. 80 ASK "ANSWER VES. OR NO? ", FIN; COMMENT “YES OR NO’ SUBROUTINE 
22.82 IF CAN-@YES>22. 94, 22. 86 
22.84 IF CAN-@NO?22. 8. 22. 8& 22.8 


22.66 SET X=2; RETURN | 


22.88 SET X=4; RETURN 


*00 22.8 | 
ANSWER YES OR NO? YEP ~ 
ANSWER YES OR NO? NOPE 
ANSWER YES OR NO? YES 


PROGRAM CONTROL WOULD ‘THEN RETURN To THE COMMAND FOLLOWING THE 
SUBROUTINE CALL (7 DO OR “ LIBRARY GOSUB’ > WITH & EQUAL TO 2. 
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IRIABLES 


VARIABLES --- SOME EXAMPLES INCLUDE: A %) 2?) P2, AN QU, PI. NUMBER 


CONLY THE FIRST TWO. LETTERS WILL BE USED> -~- VARIABLES ee NOT BEGIN 
WITH AN “F° OR R DIGIT. a | 3 


‘SUBSCRIPTING == VARIRBLES | MAY HAVE, UNIQUE “SUBSCRIPTS FROM -2048 | 
THROUGH 2647. ALTHOUGH THE TOTAL NUMBER OF VARIABLES IS STILL. LIMITED 
BY CHOICES MADE IN THE INITIAL DIALOGUE. NOTE THAT THE SYMBOL TABLE 
WILL ONLY ACCURATELY OUTPUT SUBSCRIPTS BETWEEN @ AND $9. 


PROTECTED VARIABLES — mem 1%, 484 BND ae CANNOT BE “TYPED. “ASKED? — 
OR ZEROED WITH THE “ERASE” COMMAND DIRECTLY BUT ARE OTHERWISE NORMAL 
VARIABLES AND MAY BE USED AS SUCH IN “SET’. “IF’. “GOTO". “FOR AND 

OTHER COMMANDS. -#°, THE SYSTEM STATUS VARIABLE. IS “SET’ TO SPECIAL 
CODES whe THE INITIAL OTAL OGUE. : | | 7 


INITIAL > TALOGUE 


INITIAL DIALOGUE --- ASK FOCAL’S INITIAL DIALOGUE FOR ‘HELP’ WHICH WILL 
LIST OPTIONS OTHER THAN STANDARD FEATURES. BY NOT RETAINING FILES ~ 
SFEATURE ¢4> PROGRAM SPACE IS INCREASED FROM ABOUT 35@@ CHARACTERS 

<? BLOCKS) UP TO ABOUT 55GQ CARACTES (ii BLOCKS). IF FEATURES 5° 
AND 6 ARE BOTH REQUESTED, 6 WILL BE IGNORED. =~ | 


| THE SYSTEM STATUS YARIABLE, ee, LIKE. ¢ AND re CANNOT BE TYPED" 
“RSKED" OR “ERASED” BUT IS OTHERWISE A NORMAL VARIABLE. THE SYSTEM 
STATUS VARIABLE IS ‘SET’ TO THE PRODUCT OF THE CODES REPRESENTING» 
«FEATURES CHOSEN IN THE : ANITIAL DIALOGUE. 7 


FEATURE ee CODE 
/@° NO OPTIONAL FEATURES ................ 4 
’a° FSIN AND FCOS FUNCTIONS ......... Bae.’ te 

“2° FSIN, FCOS, FLOG, FEXP AND FATN..... 6 
“3¢ EXTENDED PRECISION (46 DIGITS? ...... 5 
¢d¢ FILE COMMANDS 2.000.000 000000. re ae 


- *S LEADING SPACE IN “TYPE” .... ee © 
‘6° *=* AUTOMATICALLY PRINTED BY “TYPES . 43 

¢7% ¢:° AUTOMATICALLY PRINTED BY “ASK” |. 47. 

*g* -¢ IN PONERS-OF-TEN NOTATION. age -4 
(9 FEATURES 23-4 ....00..05... Pe ee wee. 248 
‘YES’ STANDARD FEATURES 2.3.4.5 ............ 2340 


THE NUMBER OF ORDINARY VARIABLES PERMITTED DEPENDS ON WHETHER EXTENDED | 
PRECISION OR EXTENDED FUNCTIONS | ARE RETAINED: | - 


NO aie SIN &@ FCOS  FSIN, FCOS, FLOG 


FUNCTIONS = ONLY (1) FLOG,-& FEXP <2) 
6 DIGIT PRECISION: 222 4860 oe 


1@ DIGIT PRECISION: 185 463 “a2 % 98 


COMMAND ExXECUTICN soe 


& & 16 CIGIT PRECISION VERSIONS OF PS.’S FOC AL Agr4 WERE USED TO TEST 
THE COMMAND EXECUTION TIMES IM MILLISECONDS ON A FDP-S USING A TUSS 
DECTAPE FOR INPUT AND HIGH SPEED TERMINAL FOR QUTPLIT. TIMES INCREASE 
AS LINES ARE REFERENCED TOWARD THE END OF A PROGRAM AND VARIABLES ARE 
SED FROM THE END OF THE © SYMBOL TREBLE. 


‘Leisitlin. eS 5 ‘bie 40 DIG COMMAND =  —— 6 DIG 18 bIG. 


Mme Oh WS Oh Gua o Bo Oh 


AS FR o4eciasaaies eis 2342" 423.57 S KSHH-H ooo... 6 8S) OF. GS 
Ie ot eee ore 13.65 12. eg S wMeGeG ..0 2... ites - eto ‘8 ao 
PAS ee ak esl oe a oes 65. 6S) 625. 86 S MeHtH o...00000.... & 4? 2a 
COMMENT 2.000.020.0088 14:59 1.56 SMeBG/G 00... eee 8.74 18.3 
Sere ae eee are ee et ae 054 64 51 GS MeHOH oo. 3.76 16.2 
A a kel hee set ated 16.66 18. 398 S Kkedddddd-dddddg |... 15.46 7.4 
is use teen criennos 22a 15.91 16. 22 S Me44444q/223332 ... 15.56 17.5 
FOR Ked,43 0200000000. 44.94 ° «45. a4 & MeLEIB/ZLE-16 ..... . $6.41 73.7 
Fo Med, 4i- 2. ee. 14.68 14. 67 S M={E1Q@G-1E-166 .... 257. S? 657. 3 
FoMeL 23 ol. 18.43 19. 23 S MeFABSO? 2.00. 0000:; 699 64 
F M¥ed,46; ..50.0..2.. 50.27 58. 63 S X=FABS(G) .....00020. 7.34 7.3 
ba | is Ce a 14.43 16.74 S AePABSC4> 0.0.6... $59 6 
ce ae eer ere ig. 27 16. 59 S Y=eFABSCHD S avdciak a wee 7.35 4 
sins oie Sr Seen 9.45 18. 28 S M=FABS(d4ddd4a> .... 16 69 16.7 
IF (-494.3,4.3.4.3 .. 26.87 23.22 S MBPSOTCG? ....0.... 22.79 B17 
I ¢-194. 3.4. 24.3 20.69 23. a4 S Wek SOIT ¢ Ad ocecaen.. 2S. OF 74.8 
I Lod. 3.4.3.1. 3 .... 46.78 49. 46 S MePSGNCG? 2... -. (OL F.9 
I ¢194.3.4.3-4. 3 26.47 22.79 & MSFITRCG> ..... es re 
I CNA 7 3,4. 2 12.64 26. 39 GS MBFRAMNCD 000... L 7.42 #75 
To ¢-£92,2.2 ..0...... 15.85 16. 78 S MeFEMPCG> ......... 26.50 26.5 
th. REO Zhe 22ers wee cs S493 ° 42. 77. S MePSINGG? 2.0.0.0... 31.69 49. 29 
i a cee 15.64 15. 86 S MBFCOSCG? .....00~0. 33.32 56. 6 
YT €NOZ 2.2 2.0 805 0.0,. 42.6% 4123. 46 S MeFATNCG? 2.00.0... 25.09 27.16 
“RETURN 22.0000. Porras 4.42 i. 42 S M=FLOGCG> ....0..~.. 14.78 48. 25 
Bee ihe a cteedoen te na oer eatin an bt . SL S M=eFING? ........... 6 24 6, Ze 
“SOAS co ludaee ns wees 4.4146 4.44 S MePINC+F ING > 2... 44.29 411. 25 
Sk cE ee he ek Se 6.47 6.52 S K=( TEN FING" 5S]... 65. 27 65. 60 
© EG. o caauas ao oes 445 445 S$ M=BFOUTCKO 0.00.0... @4AS | Ze 
i ee er ee 6.25 £6.37 S H=FOUTCL9@> ....... 44.94 44. 98 
S Maden 00. 14.67 441.72 S ¥=FOUTCKI+FOUTCK? . AF. 28 47. 23 
S BSA 5.2 eee ee hes 445 #44,15 S Melia FOUTCKO"S] .. 82.46 G2. Sc 
S km4ddddq  ....... F.4%S 7. 46. 5 id a ee eet ee ee ne i 
S HEG+G oo... ll. 6 8F 6. S94 Pie i etal ei sree 7: PA 
a oF! 9. 39 a ee ere a ee 4.32 4. 34 
S$ M=ed44_ 0...0.. at dctiens A467 44. 74 Vs ee oe tos eae Se 4.36 4. 38 
S MBHtH .. 0.0.0... a a ae A oo ek be cae eee 4.646 4.46 
S Meddd444+H o... i... 46.38 16. 47 T " 4d4dqq" 00.....,. 32S 3.35 
S X=4444d4+4d444gq 0... 135.89 415. 72 T " 444dqqns i faeie ...064 GS 4. BE 
S 4eG4+G+G .......0... 9275 #9 7S 1 aes adda", Ds a . $23 4, 25 
S MeG+(G+G> 2.00000. 644. 54. 14. S9 ae. eee ce ae ee ee 16.28 26. 44 
S MaG7 2205 ad ew 26.88 34. 47 Te oo ee ane eth ean 16.87 27. 86 
SSA: 6 eck sce oka ea 429.45 326.82 TAEZ5 ooo... ... 841. 26 163. 49 
S 824716 2.000. 34.62 39.29 T SGOLES@QG1ES ..... 33.27 42.78 
= 4=410@ 0000000002. 185. 37 2641. 73 T 1806067100009 ..... 18.26 28.52 
S MBHtH ooo... 694 £99 TT "L2@ SPACESI"! .... F.76 7. ?? 
S 4eG-G oo 691 6395 ##T Sé 11.59 
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TECHNICAL, NOTES 


MRR ENTS. KEIN KORRUTET GOLIMNEND MANGORERID —SMOUEOTS AENLAY <tmNAeE ee Se ee 


LOADING FSS FOCAL. 13714, 


: era 15 AVAILABLE IN THREE FORMS: 


(1) A PS/8 FORMAT FILE DECTAPE CONTAINING SAVED AND BINARY FILES 
OF PS’ FOCAL AND THE 7 FILES NEEDED TO ASSEMBLE PS-"8 FOCAL. 
THIS FORM IS RECOMMENDED FOR MULTIPLE DECTAPE INSTALLATIONS. 


2) A PS/’S SYSTEM TAPE. To WHICH HAVE BEEN ADDED THE FILES NEEDED 
TO ASSEMBLE PS“S FOCAL. THIS FORM IS RECOMMENDED FOR SINGLE 
DECTAPE INSTALLATIONS. NOTE: USER MUST SEND OMSI A PS.’8 
SYSTEM TAFE eens PSS FOCAL THIS FORM, 


2? EIGHT PAPER: TAPES A BINARY TAPE OF PSv8 FOCAL FIND 7 SOURCE 
TAPES. : | 7 


FORMS 42> as 2) ARE AVAILABLE WITH DEMONSTRATIONS AND THE “HELP 
PACKAGES gM es ge Re SS 


TO LOAD PSV’S FOCAL FROM DECTAFE. 5 MOUNT THE TAPE ON ORI IVE 1, THEN GIVE 
THE FOLLOWING COMMANDS | - 3 


“ASSIGN OTA: DSK: 
RF FIFO. , : 
#545 : PFOCAL. SVEPFOCAL. Sil 


ee 


TO LOAD PS/S FOCAL a PAPER TAPE. PLACE THE TAPE LABELED “PFOCAL. BN 
IM THE TAPE READER AND GIVE THE FOLLOWING COMMANDS , 


-R ABSLDR. 

#P TR =1G2004CALT MODE > : 

~ <TYFE A SPACE TO READ TAPE? 
. SAVE SYS: PFOLAL 


FOCAL, 1974 15 NOW. SAVED ¢ ON THE SYSTEM DEVICE AND MAY BE RUN BY, 
NG THE F578 COMMEND: | | Re | 


Psy oe 
Gly ANG 


k PFOCAL, 


PSS eee INITIAL DIALOGUE WILL THEN ASK YOU IF YOU WISH TO RETAIN 
STANDARD FEATURES. TYPE “YES” OR REFER TO PAGE 22 OF THIS MANUAL. 
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BUILDING FSG FOCAL 


PS’8 FOCAL, 1974 CAN BE BUILT FROM FOUR ASCII SOURCE FILES AND THREE 
BINARY FILES. THE NECESSARY FILES ARE : 


FOCDEF. PA DEFINITIONS OF CONSTANTS AND NEN INSTRUCTIONS FROM 
FOCAL, 1969. sv. ee a os * 


FOCOVR. PA ADDITIONS AND OVERLAYS TO FOCAL PROPER (NON RESIDENT 
| IN FIELD 1). ; | 


FOCINT. PA INITIAL DIALOGUE “MACHINE LANGUAGE PORTIONS. | 


FOCLIB.PR LIBRARY AND FILE ROUTINES “RESIDENT IN FIELD @>. 


FOCAL.BN = BINARY OF FOCAL, 1963. 
4NDMOD. BN = FOUR-WORD FLOATING POINT PATCHES. 


INITAL. 6H INITIAL DIALOGUE (FOCAL FROGRAM THAT Is NOT REQUIRED 
IF INITIAL DIALOGUE IS NOT DESIRED>. THIS FILE WAS 
PRODUCED 6YY CREATING A FOCAL PROGRAM AND THEN PUNCHING 
THE PROGRAM AREA IN BINARY. | 


TO BUILD PS/8 FOCAL, 1971, TRANSFER ALL THE NECESSARY FILES TC) THE “DSK:- 
AND GIVE THE FOLLOWING COMMANDS: | | | -_ 


_R PALS 
*PFOCAL<FOCDEF, FOCOVR, FOCINT, FOCLIE 

.R ABSLDR 
+FOCAL, 4WDMOD, PEOCAL, INITAL,1=162068 ALT MOGE > 
. SAVE S'S: PFOCAL : 


(“FOCINT’ AND “INITAL” MAY BE ONTTTED> 


“PFOCAL. SV’ IS NOW SFIYED ON THE Si'STEM DEVICE. 


TO PREPARE VERSIONS PERMITTING THE USE OF DISPLAY AMD JOYSTICK FUNCTIONS 
OF THE TEKTRONIX T-4802 GRAPHIC COMPUTER TERMINAL. INSERT FILE “FDIS” 
CSERIAL INTERFACE 4364) OR °4661° (PARALLEL INTERFACE 42012 AFTER 
“FOCDEF” IN THE COMMAND STRING GIVEN TO PALS. THE T-4802 VERSIONS 
FROVIDE 16-20% FENER VARIABLES. 


CHANGING FS FOCAL 


7 FOR ADGITIONAL en eae MAY CONSULT - “ADVANCED FOCAL TECHNICAL. 
SPECIFICATIONS- CORDER NUMBER DEC-as~ AJBE-DL FROM THE pEC PROGRAM 
LIBRARY. — DIGITAL EQUIPMENT ‘CORPORATION, MAYNARD: MASSACHUSETTS | 


NEARLY ALL USER PATCHES TO FOCAL, 1363 CAN BE ADDED TO PSS FOCAL, 1974 
WITH ONLY MINOR ADAPTATIONS. SOME POINTS: WHICH YOU MAY WISH Ta CHECK 
TO INSURE COMPATABILITY INCLUDE : 


41> SOME FOCAL INTERNAL SUBROUTINES ANE POINTERS HAVE BEEN CHANGED 
CE. G. * POPR’ TS NOW A SUBROUTINE CALL. PS/’S FOCAL ROUTINES WHICH 
FERFORM IDENTICAL FUNCT IONS ARE INCLUDED FOR ALL COMMON 7 USEO 
ROUT INES. a 


22 IN MOST CASES. THE “HOLES: Siw PO es HAVE BEEN FILLED WITH 
PATCHES. A USER ROUTINE WHICH USES THESE LOCATIONS MUST BE 
RELOCATED. THE VARIABLE SYMBOL TABLE AREA IS RECOMMENDED FOR 
THIS PURPOSE “CHANGE “STVAR’ TO ALLOW FOR PATCHES?. | 


3) USER-DEFINED FUNCTIONS REQUIRE POINTERS IN “FNTABF’ AND “FNTABL’. 
THE ’FX° AND “FNEW SLOTS HAVE BEEN FILLED WITH “FINS AND “FOUT*. 
RECOMMENDED FUNCTIONS TO CELETE FOR EXTRA SLOTS ARE FOIS,. FADC ANE 

| FRAN DEPENDING GN THE NEEDS: OF “OUR INSTALLATION. 


4 FOCAL PROPER NOW RESIDES IN FIELD 41 (STARTING ADDRESS 16260). ANY 
“PATCHES TO FOCAL MUST BE LOADED INTO FIELD 4 TG OVERLAY FOCAL. THE 
LIBRARY ROUTINES, PUSHDOWN STACK. AND TEXT STORAGE USE FIELDS. 


THE FUCOVR. PA SOURCE FILE CONTAINS ALL PATCHE S MADE BY PS.’ FOCAL 70 
FOCAL PROPER AND SHOULD BE EXAMINED TO_ INSURE “THERE ARE NO CONFLICTS 
WITH A USER PATCH. | 


SOME. TERMINALS HAVE - ESCAPE’ OR. * PREF IN a “IN, PLACE OF “ALT MODE’. TO) 
CAUSE FS.6 FOCAL TO RECOGNIZE THE NOM-FLT MODE, FIRST SAVE IT ON THE 
SYSTEM DEVICE. | THEN GIVE THE PS& MONT TOR» THE FOLLOWING COMMANDS 


.GET SYS: PFOCAL 

ODT - re nr 
—<17@G2/6375 233 (ESCAPED OR 276 <PREFIXD 

on | . a 

. SAVE SYS: FOCAL 


IF FSS FOCAL 1S To BE USED IN THE PREPARATION OF NUMERICAL CONTROL — 
TAPES, IT WILL BE NECESSARY TQ MAKE A CHANGE SO THAT FOUT<144> WILL 
NOT AUTOMATICALLY OUTPUT BOTH A CARRIAGE RETURN ANC LINE FEED. Ta DO 
THIS FIRST SAVE PS/S FOCAL ON THE SYSTEM DEVICE. THEN GIVE THE PSS 
MONITOR THE FOLLOWING COMMANDS - ‘3% as 


. GET SYS: PFOCRL 

“opt | ; 
| 1 PSALM AGL 44535 

me 

SA ‘ESS: NFOCAL 


CHARACTERS GLUT RUT WITH * POUT’ WILL NOT CHANGE THE “ TRE’ POS SITION. 
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INDE? FOR HELF | 
COMMANDS SYMbot ss FUNCT IONS 
rede. 5 ABSOLUTE VALUE 
ELEMENTARY COMMANDS ARITHMETIC SYMBOLS FADC® > ANALOG-OIGITAL 
tn ee ere ene nee ent me a et a a es om FATNC > ARCTANGENT 
pile ; wg | FcaSs¢ > COSINE | 
ASK “~ EPONENTIATION FDIS¢ > DISPLAY. 
COMMENT * MULTIPLICATION FEXP¢ > EXPONENTIAL 
CONT INUE ? DIVISION FITR< > INTEGER 
DO + AODITION FLOG< > LOG (BASE E> 
ERASE ~ SUBTRACTION FRANC > RANDOM NUMBER 
FOR (> PARENTHESES © FSGN< > SIGN PART 
Go C] SQUARE BRACKETS FSINC > SINE 
GOTO <> ANGLE SRACKETS FSQT< > SGUARE ROOT 
it aes ee - FIN¢ > CHARACTER INPUT 
MODIFY ca FOUTC > CHARACTER OUTPUT 
QUIT SPECIAL CHARACTERS | | . 
RETURN Bess ec i a are alae cele eo 
SET | | ope ee 
TYPE ' RETURN/LINE FEED MIiScelLLlAnNeous 
WRITE | # CARRIAGE RETURN ce nt ae ee ma ce ce en ms me me 
: TAB | 
% OUTPUT FORMATTER CHANGES FROM FOCAL. 1969 
LIBRARY COMMANDS ¢ SYMBOL TABLE — DEVICE NAMES 
eran eeecnm——— "QUOTATION MARKS DIRECT COMMANDS 
? TRACE : ERROR CODES 
LIBRARY CALL ~ EE  POWER-OF-TEN [2] EXPRESSIONS © 
LIBRARY DELETE RUBOUT KEY FILES — 


LIBRARY GOSUB 
LIBRARY LIST 
LIBRARY RUN 

LIBRARY. SAVE 
LIBRARY EXIT 


CTRL-C : 

CTRL’YG CBELL} 

CTRL/L | 

CTRLYF 

LINE FEED KEY 
€ KILL LINE 


HIGH SPEED READER 


INDIRECT COMMANDS 


INITIAL DIALOGUE 
LINE NUMBERS 
MERGING FROGRAMS 


WAMES OF FILES 


RETURN KEY PRECISION 
FILE COMMANDS ALT MODE KEY) PIP. 
Sn ee ee ap SPRCE KEY PUSHDOWN LIST OVERFLOW 
» COMMA SAMPLE FILES PROGRAM 


OPEN INPUT 
OPEN GUTPUT 
OPEN RESTORE INPUT 


OPEN RESTORE OUTPUT _ 


QUTPUT CLOSE 


i SEMICOLON. 


SIZE OF PROGRAMS 


STRINGS 
SUBSCRIPTING 
SUMMARY OF COMMANDS 
TRE 


VARIABLES 


THE HELP PACKAGE FOR FS/S FOCAL,1971 PERMITS THE ON-LINE REVIEW OF ANY’ 


OF THE ABOVE WORDS, 


PHRASES OR S'‘YMEOLS. 


HELF IS AVAILABLE ON A DECTAPE 


WHICH SHOULD BE MOUNTED ON DRIVE #1 HAVING BEEN ASSIGNED THE NAME “DSK 


“HELP IS REQUESTED WITH THE “tL..G HELP” 


THE USER IS WRITING A PS’S FOCAL PROGRAM. , , 
PROGRAM «SAVED AS “FOCAL. TM > WHEN HE HAS HAD ENOUGH “HELF’. 


COMMAND C"LET’S GET HELP”> WHILE 
HE WILL BE RETURNED TO HIS 


CEC IMAL ASCII aod AES 


COERETE? ROOROPUEE CORE CCUG EINER eoRE eqenetect 


— aban dead aco 


Se ee Sey eee. eee 


OUTPUT A CARRIAGE RETURN CNL, 
PSs FOCAL” S BREAK CHARACTER. 


USE SHIFT /K, 


CODES @ sie 427 ARE SIMILAR TO! 


phy 


“L 


‘AND /M FOR ot, 


watts meres epi 


~ 
CODE CHARACTER | CODE CHARACTER CODE CHARACTER 
129 CTRL/SHFTVP 16@ SPACE 193 A 
CLERDER> 164%. 194 B 
129 CTRL-A 162 " 195. C 
13@ CTRL 162 # 196 0D 
- 434 CTRLAC 164 ¢ 197 E 
132 CTRL/D 165 « 196 F 
133 CTRLYE 166 & 199 G 
134 CTRL?F 167 ~ 268 H 
135 CTRL“G <BELL> 168 ¢ 201 1. 
136 CTRLYH 169 > 262 J 
137 CTRLYI . L7Q * (203 K 
438 LINE FEED 174 + 264 L 
139 CTRL/K Br ar 205 M 
14@ CTRL-L A735 + 266 N 
1444 CARRIAGE RETURN 174 2 2a7 0 
4142 CTRL/N. 173. 7 288 F 
143 CTRL-O 176 8 209 Go 
144 CTRL-P 177 4 216 Rk 
145 CTRL-Q 178 20 gii Ss. 
1.46 CTRLZR 179 3. 212 T 
147 CTRL-S 186 4 213 U 
148 CTRLZT 164 5 214 Vo 
149 CTRL-U | 182 6. 215 Wo 
156 CTRLV 132 7 246 % 
454 CTRL-W ie4 4 217 
452 CTRLX 18S 9 218 2 
153 CTRLY | 186 = 219 C 
154 CTRL/Z) 167 3 226 \ 
455 CTRLASHFTWK 188 < 221 J 
156 CTRLSHFT/L 189 = 222 ~ 
1S7 CTRL/SHFT.“M 19@ > 2Z3 ¢€ fase 
158 CTRL-SHFTAN 191.7 253 ALT MODE - 
159 CTRLCSHFT.“O 192 @ 255 RUBOUT 
FOUTC1id4> WILL OUTPUT A RETURN¢LINEFEED) FOUTS13> WILL 


CODE 144 ¢CTRL-PD I5 
224 THROUGH 250 ARE 


“& # 
yy 4 


MANY TERMINALS | 
AND “1. 


28-255 EXCEPT THAT 


THE HIGH ORDER BIT OF ITS BINARY REPRESENTATION = 
EQUAL TO ZERO. | | 
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CRMESEEE CECT GSAS emEicms 


“Ss FmcAL. 2Sr4 


r . 
FERRO CODES ue 


<ncencs OREN, aenCS SeRIENEES erouecHO® eequenmNY ene oerenege enim cents TEL SETS METAR CoRpEETR, eames AHRNONND CEENONS NRPS RCN panartems 


ERROR CODES VALID ‘ONLY FOR BPA AL VERSION. OF P33 FOCAL 


me nt 
bf 3, 
can Lowe Y mer 
fos. 
7 e 
| ’ 30. 
™, 
Ys. 


7? 


FWUORPW AWE OOM WW Bee 


. 414 


NOTE - 


SOOO VoO MAA he Wee OO Choe ~] mh 


a ee Z on ' 


MANUAL START FROM CONSOLE 

BREAK FROM KEYBOARD VIA “CTRLA PS 

BRO LINE NUMBER ~ : 

GROUP NUMBER LARGER THM 4 

ZERO IS ILLEGAL LINE NUMBER | 

“DO’Y REFERENCED NON-EXISTENT GROUP 
“DO” REFERENCED NON-EXISTENT LINE 
NON-EXISTENT LINE AFTER “GOTO” OF “IF” 
ILLEGAL COMMAND | | 
BAD VARIABLE IN “FOR’ OR ‘SET’ COMMAND 
EXCESS RIGHT TERMINATORS 7 


ILLEGAL TERMINATOR IN “FOR” OR “SET COMMAND 


MISSING ARGUMENT IN DISPLAY FUNCTION 


BAC ARGUMENT IN “MODIFY COMMAND 


ILLEGAL USE OF A FUNCTION Gr NUMBER 
TOO MANY VARIABLES | | 
NO OFERATOR BEFORE PARENTHESIS 


FUNCTION ARGUMENT MISSING 


ILLEGAL FUNCTION OF DOUBLE OPERATORS 
ENCLOSURES DO NOT MATCH 

BAD ARGUMENT IN “ ERASE’ COMMAND 
STORAGE FILLED BY TEXT. 

a pend ins OVERFLOW 

BAD FESTORE COMMAND 

TET TO WRITE PAST END-OF “FILE. 


LOGARITHM OF ZERO REQUESTED 


NO QUTPUT FILE TO RESTORE 
BAD FILES “OPEN COMMAND 
DATA FILE NOT FOUND 

NO INPUT FILE TO RESTORE 


(TOO MAN DIGITS IN NUMBER 


PUSHDOWN OVERFLONS FROGRAM TOO LONG) 


TWO PERIOOS IN FILE NAME OF NO NAME 


BAD DEVICE OF 2 PAGE HANDLER 
BAD LIBRARY COMMAND | ; 
NO PROGRAM NAMED BY “~SAVE° COMMAND 


EXPONENT Toc LARGE OF NEGATIVE 


PROGRAM NOT FOUND 
“LIBRARY CALL’ FROM NON-DIRECTORY DEVICE 
“LIBRARY LIST” OF NON-DIRECTOR'Y DEVICE 
DIVISION BY SERO - 
FILE ALREADY DELETED 


DEVICE ERROR: WRITE LODE OF PRRIT'Y 


CANNOT OFEM OUTPUT FILE s 

IMAGINARY SQUARE ROOTS REQUIRED 

UNAVAILABLE COMMAND OF FUNCTION | 
ATTEMPT TO READ PAST ENO-OF-FILE CINPUT IS 
SHITCHED TO TERMINAL AND PROGRAM CONTINUES > 


TYPE =, TYPE >, TYPE 1, OF TYPE > OQUTPUTS A STRING 
OF ZEROES. THIS CAN BE STOPPED BY HITTING “CTRL/P”. 


SHOULD YOU EY “PERIENCE A PS.S MONITOR ERROR SUCH AS 
ATTEMPTING TO WRITE ON AN UNSELECTED DEVICE, IT IS 
BEST TO RE-ENTER FOCAL THROUGH THE INITIAL CTALOGUE. 
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SUMMARY OF COMMANDS 


aoe ELEMENTARY COMMANGS 


#ASK Kool. Te ee ee ne | ACCEPT VALUE OF % FROM INPUT DEVICE 


*COMMENT ........ Doreen nes seine ststicarass ae ++. IGNORE, REST OF LINE 
*CONTINUE 2.0.0.0... en en ee eee eee ee eS: DUMMY COMMAND 
#bG CLINE OR GROUP NUMBER J pi td ete tna Poe ed Poe oe oe ee SUBROUTINE. <CALL 
HERASE. ache si ei Sat ey os, eee daa dete bee dae eta ea ees ZERO: VARIABLES 
#ERASE <LINE OR GROUF NUMBER? Sa eaioeraeane ee odode) DELETE LINE: OR: GROUP 
#*ERAS mE A setae aa 3c tee See Chae Pi .... DELETE ENTIRE INDIRECT PROGRAM 
FOR #=E10.E21 E2; [COMMAND 3 J... ..... COMMAND REPEATED CE3-E1>/“EZ+1 TIMES 
HG ea cerenettes asa Sp hia ed Pog ci..... START PROGRAM EXECUTION AT FIRST LINE 
MAG) Ve ee ee ats eens & bonus acs .. SEND PROGRAM EXECUTION TO LINE Li 
*IF CEAOLAC-L2-L3U .....-, @ OR VALUE OF E1 GIVES NEXT LINE EXECUTED 
MODIFY Lael. SSO Ming at cn are Pa re eget te eee EDIT LINE Li 
PUY ick Mies seh cat Ia htoa Bee Ree Or ne eee ne gee ..... STOP EXECUTION 
 +RE TURN DTT ETT TET Teen rnate A “DO OR "LIBRARY GOSUB” SUBROUTINE 
SET M=<NUMBER. VARIABLE ORF EXPRESSION? ........ SSIGN VALUE TO VARIABLE 


 #TYPE CNUMBERS, VARIABLES. EXPRESSIONS. TEMT IN AUOTES: 1, & oc. £ OR HY 


+WRITE CGROUP OR il ica eres ae ae cesses e eee LIST PROGRAM 


rhe ibs oe LIBRARY COMMANDS - 


4LIBRARS CALL CDEVICE: 1KPROGRAM NAMED Bais hoe SAVED PROGRAM 


+L TBRARY DELETE COEVICE: PROGRAM NAME> a: Aerie Rt Seda, thie’ g 8 UNSAVE PROGRAM 
Beenie GOSUB CDEVICE: ce [PROGRAM NFIME> LGROUP OR LINE NUMBER ites OO: 
+LIBRARY LIST CDEVICE: IC FIRST FILE To BE LISTEDDV 2... oe. a CATALOG 
#LIGRARY RUN CDEVICE: ICFROGRAM NAME> CLINE Ral WMBER J ee ee CHAIN 
#+LIBRARY SAVE COEVICE: ik “PRC GRAM NAME> ie ee eee oo. ..... SAVE PROGRAM - 


ween Veyeree ne ead a er Ss RETURN TO PS MONITOR — 


hy 


ab mabe ibe FILE COMMANDS 7 


“OPEN INPUT CDEVICE: IC FILE NAME IC. ECHOD ce So TO REAO FILE 


+*OPEM OUTPUT CDEVICE: 10 FILE NANE JC. ECHO] .......... PREPARE TO WRITE FILE 
OPEN RESTORE INPUTC. ECHO] .......... ne eee an oe RESuMe INPUT FROM FILE 
“OPEN RESTORE OUTPUTC. ECHO] ........ ua te ee .,.. RESUME OUTPUT TO FILE 
*CLUTPUT CLOSE itp ig ee ahes chad BUFFER: CLOSES OUTPUT FILE 
Se eee Oe es .. INPUT Is ECHOED ON OUTPUT DEVICE 


—--QUTPUT—-=, ECHO 22... fete eee teens OUTPUT IS ECHOED ON TERMINAL 


+: GENERAL, Form : 


<> ENCLOSE REQUIRED TERMS. AND C 7 ENCLOSE. GPTIONAL TERMS. 7 
“” IS A VAR TABLE. EL. EZ AND EZ ASE ARITHMETIC ESPRESSIONS. — 
Li. Le, AND LS ARE LINE NUMBERS. LINE AND GROUP NUMBERS MAY 

BE REPLACED 6Y ANY EXPRESSION NOT BEGINNING WITH THE LETTER “A”. 


_FC AND FO ARE ASSUMED FROGRAM AND DATA FILE NAME EXTENSIONS. 


FOLLOW COMMANDS WITH Al SPACE; ONE LETTER ABBREVIATIONS PERMITTED. 


CTFEL- rr 1S) Ss SS oe oat ed | BREF CHARACTER 


AOREITIR ZEOEAGD GAR T SROT MERRORO agEETROG EES cite eceagiomsed ‘teasbubtg” SERA NEES eRbNEES qsoLEeD sesh mentNOES : ACOUNEKOD (STRCUEKTID ehteencenm anememeUth ‘omen eared mein 
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COMMENTED DIRECTORY FOR : atic 74 DECTAPE - 


S112 74 
MELP. .. FE 


3 CENTERL PROGRAM IN THE PSY na. FOCR, He =e PACKAGE 
HELPER. RE : 


PROKAGE 


“HELP 


 HANGND. FO 


 COMMAL. RE 


LEMP T'Y> 


DIRECR. RO HOLe? PROKAGE 
DIRECI. RD “HELO PROKAGE 
OIRECR. PO. “HELP. ORCKAIGE 
SOIREC. RO “HELP? PACKAGE 


CATR FILE CALLED BY “BTLSHP- 


ERASE . FD ie 
OATA FILE WITH BOROS FOR - HReMGmne — 


LISRAR. RE “HELP PRICKAGE 
HF ILEL. RE “HELP PRIDE AGE 
HFILE2. RE “HELP PRCKAIGE 


“HELE PACKAGE 


& 
e 
5 
oe 
4 
7 
Pe 
5 
a 
5 
5 
4 
. COMMAS. RE’ 6 
3 
S 
6 
& 
5 
5 
et 
& 
5 
S 
is 


COMMAZ. RE “HELP? PROKAIGE 
“HELPS PRCKAGE | 
SATLOG. FC CATALOG FOR PUBLIC LIBRARY OF PS“8 FOCAL PROGRAMS 
IMDEX . RE- “HELPY PACKAGE 
HERROR. RE “HELP? PRICKAGE 
FUMCTAL. RE “HELP? PRICKAGE 
FUNCT2. RE “HELPS PACKAGE 
SYMBOL. FE “HELP PACKAGE 
SYMBOZ. RE “HELP PACKAGE 
— SUMCOM. RE “HELP PRICKINGE 
MISCLA. RE “HELP PRCKAGE 
MISOL2. RE “HELP. PACKAGE 
MISCL2. RE “HELP PRIDKAGE 
PFOCAL. SY 26 PSS FOCRL, 1974 


TECOH8 FOR PSYS ae. 
TEMPORARY FECAL PROGRAM SEED. By “LIBRAR ay GOSUB” COMMARC: 
“ HOLE FOR. USER PROGeAMS — 
fA OFITA FILE CONTAINING A SERIES: oF OIRECT. COMMANDS WHICH 
LIST PUBLIC LISRARY PROGRAMS WHEN THE “OPEN INPUT LISTAL” 


COMMEND - 1s GIVEN IN COMMEND MOGE 


TECO .S¥Y dad 
FOCAL . TM 4 


LISTAL. FD 4 


 LISTAL. RD- 


PSs 


FOCAL 


PUBLIC 


4 SAME PS LISTRAL. Fo BUT FOS ue “HELP PACKAGE 
INTRET. FC 3 PSs FOCAL PROGRAM -~— PUBL I LIBRARY 
CHISGR. FC 5 PSS FOCRL PROGRAM --- ee L Teerey 
STATL .FC «6 PS-sS eb dei ~ peg LISPRRY 
STAT2 .FC 5S PSS FOCAL PROGRAM --- FUELIC LIBRARY 
 AODEX .FC 2 PSS FOCRL PROGRAM --— PUBLIC LISRREY 
 BRRON .FC 6 PSS FOCAL PROGRAM --- FUSLIC LISRARY 
TRIANG. FC 4 FSS FOCAL PROGRAM --- PUBLIC LIBRARY 
CALNDR. FC 3 PSS FOCRL PROGRAM --- FUSLIC LIBRARY 
HANGMN. FO S PS FOCAL PROGRAM --~- PUBLIC LIBRARY 
HANOI .FO SS FSS FOCAL PROGRAM --— PUBLIC LIBRARY 
PLOTER. FC S PSS FOCAL PROGRAM --- PUSLIC LISRARY 
FACTOR. FO 2 PS/S FOCRL PROGRAM --- PUBLIC LISRRRY 
POLAR .FO 4 PSS FOCPL FROGRAM --~- PUBLIC LIGRARY . . 
GRAPH .FC S PS/’e FOCAL PROGRAM --- PLGLIC LIBRARY 
HARMON. FC 4 PSS FOCAL PROGRAM --- PUBLIC LIGRARY 
WEE FC =: PS/S FOCAL PROGRAM --- FUBLIC LICRARY. 
ETLSHP. FC ? PROGRAM 


LIGRARY 


HELP 


TECO 


Teco. 
 FOCDEF. 
-FOCOYVR., 
FOCINT. 
FOCLI6. 
FOCAL . 
4WDMOp. 
IMITAL. 


FDIS 
4804 


PFOCAL. 


MAP 
Spy 
SV2Z6N 


EN 
SV 
Sv 
. Sv 


mo 


Fhe ac Baas 


UL 


115 FREE 6LOC 


ey see, 


“BRCKUP FILE FOR. “HELP. FC’ 


TECO-s& SOURCE. FILE. 


TECO-98 BINARY FILE. <LORO WITH AESLDR: “STARTS aT 209) 


PSAWe: FOCAL, 1972 SOURCE FILE ~-~ DEFINITIONS“ INS TRUCTIONS 


. PSS. FOCAL, 1974 SOURCE. FILE a oe OVERLAYS Ta FOCAL, 136% 
 PS¢S FOCAL. 1974 SOURCE FILE. --~ INITIAL OIALOSUE <PRLS> 
—PS/8 FOCAL 1971 SOURCE FILE a LIBRARY FIND FILE ROUTINES | 


FOCAL, 1969. BINARY FILE 


FOCAL FLOATING POINT PACKAGE. FOUR-NORD PHT CHES: 


PSv73 FOCAL, 1972 INITIAL DIALOGUE FOCAL PROGRAM > 


3 PSYE FOCAL, A971 SOURCE FILE --- T-4992 SERIAL INTERFACE 
$/8 FOCAL, 1974 SOURCE FILE +— T4832 PARALLEL INTERF ALE. 
PS/e FOCAL. 1974 BINARY FILE <-~ STARTS AT 1G283 


CORE MAPPER ~--- SPECIFY BINARY FILE FOR COMMAND DECODER 
DECTAPE ODT --- VERY ~ EXPERIMENTAL’ 
_ “ SAVE- TO-B INARY CONVERTER 


KS 


